/[cmucl]/src/pcl/dlisp.lisp
ViewVC logotype

Diff of /src/pcl/dlisp.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by gerd, Sun May 4 13:11:21 2003 UTC revision 1.13 by rtoy, Fri Mar 19 15:19:03 2010 UTC
# Line 29  Line 29 
29  ;;;  ;;;
30    
31  (in-package :pcl)  (in-package :pcl)
32    (intl:textdomain "cmucl")
33    
34  ;;; This file is (almost) functionally equivalent to dlap.lisp,  ;;; This file is (almost) functionally equivalent to dlap.lisp,
35  ;;; but easier to read.  ;;; but easier to read.
# Line 280  Line 281 
281                                     args metatypes))                                     args metatypes))
282           (wrappers (mapcar #'car wrapper-bindings)))           (wrappers (mapcar #'car wrapper-bindings)))
283      (declare (fixnum index))      (declare (fixnum index))
284      (assert (not (null wrappers)) () "Every metatype is T.")      (assert (not (null wrappers)) () _"Every metatype is T.")
285      `(block dfun      `(block dfun
286         (tagbody         (tagbody
287            (let ((field (cache-field cache))            (let ((field (cache-field cache))
# Line 452  Line 453 
453              (t              (t
454               (go ,miss-label))))               (go ,miss-label))))
455      (class      (class
456       (assert (null slot) () "Can't do a slot reg for this metatype.")       (assert (null slot) () _"Can't do a slot reg for this metatype.")
457       `(wrapper-of-macro ,argument))       `(wrapper-of-macro ,argument))
458      ((built-in-instance structure-instance)      ((built-in-instance structure-instance)
459       (assert (null slot) () "Can't do a slot reg for this metatype.")       (assert (null slot) () _"Can't do a slot reg for this metatype.")
460       `(built-in-or-structure-wrapper ,argument))))       `(built-in-or-structure-wrapper ,argument))))
461    

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

  ViewVC Help
Powered by ViewVC 1.1.5