[xcvb-devel] Bug/typo

[Faré]

Dear Theam Yong Chew,

thanks a lot for spotting the typo. I'm (happily) surprised that
anyone is looking at that code. I thought I was the only user as well
as the only developer.

Are you using XCVB for anything, or considering using it? Are you
interested in developing it?

[ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ]
There is never a better measure of what a person is than what he does when
he's absolutely free to choose."  — William M. Bulger


On 8 August 2010 19:30, Theam Yong Chew <senatorzergling at gmail.com> wrote:
> Howdy Fare,
>
> I might have spotted a typo below (from xcvb .532), where
> the format string should probably be (setf *features*...) with an s.
>
> Yong
>
>
>
>
> --- a/driver-commands.lisp
> +++ b/driver-commands.lisp
> @@ -89,7 +89,13 @@ will create the desired content. An atomic rename()
> will have to be performed af
>
>     (lisp-invocation-arglist
>      :image-path (if image (fullname-enough-namestring env image)
> *lisp-image-pathname*)
>      :load (mapcar/ #'fullname-enough-namestring env load)
> -     :eval eval)))
> +     :eval (if (or *target-added-features* *target-suppressed-features*)
> +               (format nil "(progn~
> +  ~{~#[~;(pushnew ~S *features*)~:;(dolist(x'(~@{~S~^ ~}))(pushnew x
> *features*))~]~}~
> +  ~@[(setf *feature*(remove~{~#[~; ~S~:;-if(lambda(x)(member
> x'(~@{~S~^ ~})))~]~} *features*))~]~
> +  ~A)"
> +                       *target-added-features*
> *target-suppressed-features* eval)
> +               eval))))
>
>  (defun compile-file-directly-shell-token (env name &key cfasl)
>   (quit-form