Custom Query (1030 matches)

? (defclass c () ()) 
#<STANDARD-CLASS C> 
? (defmethod initialize-instance ((x c) &rest args) 
    (declare (optimize (safety 3)))
    (apply #'call-next-method x args)) 
#<STANDARD-METHOD INITIALIZE-INSTANCE (C)> 
? (make-instance 'c) 
> Error: value NIL is not of the expected type SIMPLE-VECTOR. 
> While executing: (:INTERNAL CCL::DO-IT CCL::%%CNM-WITH-ARGS-COMBINED-METHOD-DCODE), in process listener(1). 
> Type :POP to abort, :R for a list of available restarts. 
> Type :? for other options. 
1 >  

? (compile nil '(lambda () (typep nil '(or none-such null)))) 
> Error: Unknown type specifier: NONE-SUCH 
> While executing: CCL::%%TYPEP, in process listener(1). 
> Type :POP to abort, :R for a list of available restarts. 
> Type :? for other options. 
1 >  

I'm working on a fix, just entering the bug for the record.

? (defmethod frotz (x) (print x))
#<STANDARD-METHOD FROTZ (T)>
? (trace frotz)
NIL
? (frotz 17)
0> Calling (FROTZ 17) 
> Error: Too many arguments in call to #<METHOD-FUNCTION FROTZ (T)>:
>        2 arguments provided, at most 1 accepted. 
> While executing: #<STANDARD-METHOD FROTZ (T)>, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 >