Custom Query (1030 matches)

? (defclass erroneous-class.13 ()
   (a b c)
   (#.(gensym)))
#<STANDARD-CLASS ERRONEOUS-CLASS.13>
? (make-instance 'erroneous-class.13)
#<ERRONEOUS-CLASS.13 #x300044399DDD>
?

The spec says a program-error is required for unsupported options. This may have been augmented by the MOP, I don't know. But in any case, some indication of a problem should be given at some point.

After a little poking about, it seems like the problem is this method:

 (defmethod initialize-instance :before ((class class) &key &allow-other-keys)
  (setf (%class.ctype class) (make-class-ctype class)))

The &allow-other-keys in this method causes keyword arg checking for class objects to be disabled. I wonder it it would be worthwhile (or even allowed) to treat methods that have &allow-other-keys without &rest as not disabling initialization arg checking.

? (exp (+ 10 (log most-positive-single-float)))
1E++0

This was with dx86cl64 on my MacBook Pro. It works ok (signals FLOATING-POINT-OVERFLOW) with lx86cl64.

? (funcall #'(lambda () (locally (declare (optimize (safety 1))) (car 'a) t)))
;Compiler warnings :
;   In an anonymous lambda form: Error: "value A is not of the expected type LIST." 
;   signalled during compile-time evaluation of (CAR 'A) .
> Error: value A is not of the expected type LIST.
> While executing: CAR, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :pop

? (funcall #'(lambda () (locally (declare (optimize (safety 3))) (car 'a) t)))
T
?