465 |
(macro-function 'cond) |
(macro-function 'cond) |
466 |
#'meaningless-user-function-for-universe |
#'meaningless-user-function-for-universe |
467 |
#'meaningless-user-generic-function-for-universe |
#'meaningless-user-generic-function-for-universe |
468 |
#'(lambda (x) x))) |
#'(lambda (x) x) |
469 |
|
(compile nil '(lambda (x) x)))) |
470 |
|
|
471 |
(defparameter *methods* |
(defparameter *methods* |
472 |
(list |
(list |
525 |
*methods*)) |
*methods*)) |
526 |
'(;;; Others to fill in gaps |
'(;;; Others to fill in gaps |
527 |
1.2s0 1.3f0 1.5d0 1.8l0 3/5 10000000000000000000000)))) |
1.2s0 1.3f0 1.5d0 1.8l0 3/5 10000000000000000000000)))) |
528 |
|
|
529 |
|
(defparameter *classes* |
530 |
|
(remove-duplicates (mapcar #'class-of *universe*))) |
531 |
|
|
532 |
|
(defparameter *built-in-classes* |
533 |
|
(remove-if-not #'(lambda (x) (typep x 'built-in-class)) |
534 |
|
*classes*)) |