"The value NIL is not of type SB-KERNEL:LAYOUT"
;; From Alexandria; not interesting wrt. this report.
(defun remove-from-plist (plist &rest keys)
(loop for (key . rest) on plist by #'cddr
do (assert rest () "Expected a proper plist, got ~S" plist)
unless (member key keys :test #'eq)
collect key and collect (first rest)))
(defclass my-class (standard-class)
(defclass my-object ()
((id :type integer :reader id-of))
(defmethod initialize-instance ((class my-class) &rest initargs &key name direct-
(let ((my-object-class (find-class 'my-object)))
(if (or (eq name 'my-object)
(some (lambda (class) (subtypep class my-object-class))
(apply #'call-next-method class
#| Seems deleted code (?) triggers the problem somehow. Also, it does not happen when the first argument is
(CLASS T). I've understood (I think ..) that dispatch based on the first argument for SVUC is "pointless", but
should code like this cause trouble nonetheless? |#
(setf (slot-value object 'id) 42)
(eval-when (:compile-toplevel :load-toplevel :execute)
(defclass test ()
((a :reader test-a))
I'm not sure what's wrong (and it's 4 in the morning.. :P). The deletion of code might confuse the compiler or the expansion of the DEFCLASS form or something.
SBCL 184.108.40.206 (I've confirmed it happening with 1.0.29 also).
Linux blackbox 2.6.30-2-amd64 #1 SMP Fri Sep 25 22:16:56 UTC 2009 x86_64 GNU/Linux
:SB-TEST :SB-LDB :SB-PACKAGE-LOCKS :SB-UNICODE :SB-EVAL :SB-SOURCE-
:CYCLE-COUNTER :COMPLEX-FLOAT-VOPS :FLOAT-EQL-VOPS :INLINE-CONSTANTS
|Christophe Rhodes (csr21-cantab) wrote : Re: [Bug 473699] [NEW] "The value NIL is not of type SB-KERNEL:LAYOUT"||#1|
|Changed in sbcl:|
|status:||Fix Committed → Fix Released|