358 |
(defgeneric meaningless-user-generic-function-for-universe (x y z) |
(defgeneric meaningless-user-generic-function-for-universe (x y z) |
359 |
(:method ((x integer) (y integer) (z integer)) (+ x y z))) |
(:method ((x integer) (y integer) (z integer)) (+ x y z))) |
360 |
|
|
361 |
(eval-when #+gcl (load) #-gcl (:load-toplevel) |
(eval-when (:load-toplevel) |
362 |
(compile 'meaningless-user-function-for-universe) |
(compile 'meaningless-user-function-for-universe) |
363 |
(compile 'meaningless-user-generic-function-for-universe) |
(compile 'meaningless-user-generic-function-for-universe) |
364 |
) |
) |