Parent Directory | Revision Log | Patch
revision 1.6 by pfdietz, Sat Mar 1 03:35:48 2003 UTC | revision 1.7 by pfdietz, Tue May 6 12:13:26 2003 UTC | |
---|---|---|
# | Line 377 | Line 377 |
377 | ||
378 | (defvar *mini-universe* | (defvar *mini-universe* |
379 | (remove-duplicates | (remove-duplicates |
380 | (mapcar #'first | (append |
381 | (list *symbols* | (mapcar #'first |
382 | *numbers* | (list *symbols* |
383 | *characters* | *numbers* |
384 | (mapcar #'copy-seq *strings*) | *characters* |
385 | *conses* | (list (copy-seq (first *strings*))) |
386 | *condition-objects* | *conses* |
387 | *package-objects* | *condition-objects* |
388 | *arrays* | *package-objects* |
389 | *hash-tables* | *arrays* |
390 | *pathnames* | *hash-tables* |
391 | *streams* | *pathnames* |
392 | *readtables* | *streams* |
393 | *structures* | *readtables* |
394 | *functions* | *structures* |
395 | *random-states*)))) | *functions* |
396 | *random-states*)) | |
397 | '(;;; Others to fill in gaps | |
398 | 1.2s0 1.3f0 1.5d0 1.8l0 3/5 10000000000000000000000)))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |