Changeset 13376


Ignore:
Timestamp:
07/04/11 14:04:02 (10 years ago)
Author:
Mark Evenson
Message:

Implement MOP:VALIDATE-SUPERCLASS.

Start breaking out MOP defintions into separate 'mop.lisp' file.

Location:
trunk/abcl
Files:
1 added
3 edited

Legend:

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

    r13273 r13376  
    31733173  (allocate-instance class))
    31743174
     3175(eval-when (:compile-toplevel :load-toplevel :execute)
     3176  (require "MOP"))
     3177
    31753178(provide 'clos)
     3179
  • trunk/abcl/src/org/armedbear/lisp/compile-system.lisp

    r13304 r13376  
    108108      (load (do-compile "substitute.lisp"))
    109109      (load (do-compile "clos.lisp"))
     110      (load (do-compile "mop.lisp"))
    110111      ;; Order matters for these files.
    111112      (mapc #'do-compile '("collect.lisp"
  • trunk/abcl/test/lisp/abcl/mop-tests.lisp

    r13225 r13376  
    361361
    362362
     363(defclass foo-class (standard-class))
     364(defmethod mop:validate-superclass ((class foo-class) (superclass standard-object))
     365  t)
     366
     367(deftest validate-superclass.1
     368    (mop:validate-superclass
     369     (make-instance 'foo-class)
     370     (make-instance 'standard-object))
     371  t)
     372
     373
Note: See TracChangeset for help on using the changeset viewer.