Changeset 13818


Ignore:
Timestamp:
01/28/12 16:34:47 (9 years ago)
Author:
rschlatte
Message:

Better error message for (allocate-instance (find-class 'symbol))

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r13817 r13818  
    29952995;;; Instance creation and initialization
    29962996
     2997;;; AMOP pg. 168ff.  Checking whether the class is finalized is done
     2998;;; inside std-allocate-instance and allocate-funcallable-instance.
    29972999(defgeneric allocate-instance (class &rest initargs &key &allow-other-keys))
    29983000
     
    30103012                   (make-list (length (class-slots class))
    30113013                              :initial-element +slot-unbound+)))
     3014
     3015(defmethod allocate-instance ((class built-in-class) &rest initargs)
     3016  (declare (ignore initargs))
     3017  (error "Cannot allocate instances of a built-in class: ~S" class))
    30123018
    30133019;; "The set of valid initialization arguments for a class is the set of valid
Note: See TracChangeset for help on using the changeset viewer.