"new"
(layout-length layout)
(layout-inherits layout)
- (layout-depthoid layout))
+ (layout-depthoid layout)
+ (layout-n-untagged-slots layout))
(register-layout layout :invalidate t))
((not (classoid-layout class))
(register-layout layout)))
<http://sbcl.sourceforge.net/>.~:@>"
'((fmakunbound 'compile))))))
+(define-condition simple-storage-condition (storage-condition simple-condition) ())
+
;;; a condition for use in stubs for operations which aren't supported
;;; on some platforms
;;;
(define-condition timeout (serious-condition) ())
+(define-condition declaration-type-conflict-error (reference-condition
+ simple-error)
+ ()
+ (:default-initargs
+ :format-control "symbol ~S cannot be both the name of a type and the name of a declaration"
+ :references (list '(:ansi-cl :section (3 8 21)))))
+
;;; Single stepping conditions
(define-condition step-condition ()