;Reading at top level in Lisp Listener 1.
;Reading in base 10 in package USER with standard Zetalisp readtable.

(make-system 'objectlisp :recompile)
Compiling SYS: OBJECTLISP; PREFACE LISP > in package OBJ
Loading SYS: OBJECTLISP; PREFACE QFASL > into package OBJ
Compiling SYS: OBJECTLISP; NLOOP LISP > in package OBJ
Loading SYS: OBJECTLISP; NLOOP QFASL > into package OBJ
Compiling SYS: OBJECTLISP; TABLE LISP > in package OBJ
Loading SYS: OBJECTLISP; TABLE QFASL > into package OBJ
Compiling SYS: OBJECTLISP; OBWALK LISP > in package OBJ
Compiling SYS: OBJECTLISP; WALK LISP > in package OBJ
Loading SYS: OBJECTLISP; OBWALK QFASL > into package OBJ
Loading SYS: OBJECTLISP; WALK QFASL > into package OBJ
Compiling SYS: OBJECTLISP; OBJ LISP > in package OBJ
Loading SYS: OBJECTLISP; OBJ QFASL > into package OBJ
Compiling SYS: OBJECTLISP; PRIMS LISP > in package OBJ
Compiling SYS: OBJECTLISP; GLOBAL LISP > in package OBJ
Incrementing Object Lisp patch version
Object Lisp version 4. created
Loading SYS: OBJECTLISP; PRIMS QFASL > into package OBJ
Loading SYS: OBJECTLISP; GLOBAL QFASL > into package OBJ
Making Object Lisp patchable
Experimental Object Lisp version 4. loaded

T
(print-herald)
LMI Lambda Release 4.0 (Alpha Test), band 2 of opus milo. (site/patches/tiger)
2048K physical memory, 25128K virtual memory, NuBus slot 0.
 Experimental System         123.18
 Experimental Local-File      73.0
 Experimental FILE-Server     22.0
 Experimental Unix-Interface  11.0
 Experimental Tape            18.0
 Experimental KERMIT          34.0
 Experimental ZMail           71.0
 Experimental Lambda-Diag     15.0
 Experimental Tiger           27.0
 Experimental Object Lisp      4.0
 Microcode                  1754
 SDU                           3.14
<<<LMI/Lowell>>> Opus, with associated machine OPUS.

NIL
(defkind foo)
#<The class FOO 60337772>
(definstancevars foo (foothing 1) (foomore 2))
NIL
(defclassvars foo (fooclass 'foo))
FOOCLASS
(setq foo (oneof foo))
#<An unnamed FOO 60345637>
(ask foo foothing)
1
(ask foo foomore)
2
(ask foo fooclass)
FOO
(defobfun(test foo)()(format t "~&Hi, foo!"))
NIL
(ask foo (test))
Hi, foo!
NIL
(dribble)