Changeset 10299
- Timestamp:
- Aug 4, 2008, 8:21:38 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-clos-boot.lisp
r10293 r10299 1406 1406 (let* ((class (apply #'make-built-in-class name supers)) 1407 1407 (cell (register-istruct-cell name))) 1408 (set f (istruct-cell-info cell)(%class.own-wrapper class))1408 (set-istruct-cell-info cell (%class.own-wrapper class)) 1409 1409 class)) 1410 1410
Note: See TracChangeset
for help on using the changeset viewer.