347 |
(make-bar-structure :x 1 :y 'a :z nil) |
(make-bar-structure :x 1 :y 'a :z nil) |
348 |
)) |
)) |
349 |
|
|
350 |
|
(defun meaningless-user-function-for-universe (x y z) |
351 |
|
(list (+ x 1) (+ y 2) (+ z 3))) |
352 |
|
|
353 |
|
(defgeneric meaningless-user-generic-function-for-universe (x y z) |
354 |
|
(:method ((x integer) (y integer) (z integer)) (+ x y z))) |
355 |
|
|
356 |
|
(eval-when (load) |
357 |
|
(compile 'meaningless-user-function-for-universe) |
358 |
|
(compile 'meaningless-user-generic-function-for-universe) |
359 |
|
) |
360 |
|
|
361 |
(defvar *functions* |
(defvar *functions* |
362 |
(list #'cons #'car #'append #'values |
(list #'cons #'car #'append #'values |
363 |
(macro-function 'cond) |
(macro-function 'cond) |
364 |
|
#'meaningless-user-function-for-universe |
365 |
|
#'meaningless-user-generic-function-for-universe |
366 |
#'(lambda (x) x))) |
#'(lambda (x) x))) |
367 |
|
|
368 |
|
(defvar *methods* |
369 |
|
(list |
370 |
|
;; Add methods here |
371 |
|
)) |
372 |
|
|
373 |
|
|
374 |
(defvar *random-states* |
(defvar *random-states* |
375 |
(list (make-random-state))) |
(list (make-random-state))) |
376 |
|
|
392 |
*structures* |
*structures* |
393 |
*functions* |
*functions* |
394 |
*random-states* |
*random-states* |
395 |
|
*methods* |
396 |
nil))) |
nil))) |
397 |
|
|
398 |
(defvar *mini-universe* |
(defvar *mini-universe* |
413 |
*readtables* |
*readtables* |
414 |
*structures* |
*structures* |
415 |
*functions* |
*functions* |
416 |
*random-states*)) |
*random-states* |
417 |
|
*methods*)) |
418 |
'(;;; Others to fill in gaps |
'(;;; Others to fill in gaps |
419 |
1.2s0 1.3f0 1.5d0 1.8l0 3/5 10000000000000000000000)))) |
1.2s0 1.3f0 1.5d0 1.8l0 3/5 10000000000000000000000)))) |