Custom Query (1030 matches)

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 >

It's disgusting I know. I blame the bad company I hang with. One or two of whom like to defining functions on keywords. So I think "Yeah! how about NIL?"

bash-3.2$ ccl64
Welcome to Clozure Common Lisp Version 1.9-r15759  (DarwinX8664)!
? (defun nil () (print :shame-on-you))
Lisp Breakpoint
? for help
[77472] Clozure CL kernel debugger: exit
[77472] Clozure CL kernel debugger: NIL
? (funcall (symbol-function nil))

:SHAME-ON-YOU 
:SHAME-ON-YOU
1 > (ccl:quit)
bash-3.2$