/[gcl]/gcl/ansi-tests/universe.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/universe.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26