Custom Query (1030 matches)

During a call to compile-file, *compile-file-pathname* is bound... At other times, the value of these variables is ni. cl:load should bind cl:compile-file-pathname to NIL

Because of this bug, the following fails:

(eval-when (:compile-toplevel :load-toplevel)

(asdf:load-system :iolib))

Welcome to Clozure Common Lisp Version 1.8  (LinuxX8632)!
? (deftype foo () '(complex double-float))
FOO
? (coerce #c(2 4) '(complex double-float))
#C(2.0D0 4.0D0)
? (coerce #c(2 4) 'foo)
> Error: value #C(2 4) is not of the expected type REAL.
> While executing: COMPLEX, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > 

Basically this happens because coerce-to-complex works on the literal type specifier instead of the canonicalized ctype. I've included a small patch to remedy this.

like the following:

Welcome to Clozure Common Lisp Version 1.9-r15757 (LinuxX8664)! ? (defvar *xx* 3) *XX* ? (watch '*xx*)

Error: The value *XX* is not of the expected type (OR CONS

(SATISFIES UVECTORP)).

While executing: CCL::PRIMITIVE-WATCH, in process listener(1). Type :POP to abort, :R for a list of available restarts. Type :? for other options.

1 >