Below there is a line that reads "IV3 unboundThe following slots have :CLASS allocation:"
There should be a carriage return before the "The".
$ java -jar abcl.jar Armed Bear Common Lisp 0.19.0-dev Java 1.6.0_17 Apple Inc. Java HotSpot(TM) 64-Bit Server VM Low-level initialization completed in 0.374 seconds. Startup completed in 1.086 seconds. Type ":help" for a list of available commands. CL-USER(1): (defclass myclass () (iv1 iv2 iv3 (cv1 :allocation :class))) #<STANDARD-CLASS MYCLASS {5EE04FD}> CL-USER(2): (setq i1 (make-instance 'myclass)) #<MYCLASS {195B6AAD}> CL-USER(3): i1 #<MYCLASS {195B6AAD}> CL-USER(4): (describe i1) #<MYCLASS {195B6AAD}> is an instance of #<STANDARD-CLASS MYCLASS {5EE04FD}>. The following slots have :INSTANCE allocation: IV1 unbound IV2 unbound IV3 unboundThe following slots have :CLASS allocation: CV1 unbound CL-USER(5):
On 9 February 2010 22:31, Blake McBride blake@mcbride.name wrote:
Below there is a line that reads "IV3 unboundThe following slots have :CLASS allocation:" There should be a carriage return before the "The".
$ java -jar abcl.jar Armed Bear Common Lisp 0.19.0-dev Java 1.6.0_17 Apple Inc. Java HotSpot(TM) 64-Bit Server VM Low-level initialization completed in 0.374 seconds. Startup completed in 1.086 seconds. Type ":help" for a list of available commands. CL-USER(1): (defclass myclass () (iv1 iv2 iv3 (cv1 :allocation :class))) #<STANDARD-CLASS MYCLASS {5EE04FD}> CL-USER(2): (setq i1 (make-instance 'myclass)) #<MYCLASS {195B6AAD}> CL-USER(3): i1 #<MYCLASS {195B6AAD}> CL-USER(4): (describe i1) #<MYCLASS {195B6AAD}> is an instance of #<STANDARD-CLASS MYCLASS {5EE04FD}>. The following slots have :INSTANCE allocation: IV1 unbound IV2 unbound IV3 unboundThe following slots have :CLASS allocation: CV1 unbound CL-USER(5):
Fixed in r12436, get it while it's hot! :)
So:
$ rlwrap ./abcl Armed Bear Common Lisp 0.19.0-dev Java 1.6.0_15 Sun Microsystems Inc. Java HotSpot(TM) Server VM Low-level initialization completed in 0.517 seconds. Startup completed in 1.508 seconds. Type ":help" for a list of available commands. (defclass myclass () (iv1 iv2 iv3 (cv1 :allocation :class))) #<STANDARD-CLASS MYCLASS {DB3331}> CL-USER(2): (setq i1 (make-instance 'myclass)) #<MYCLASS {1FCD402}> CL-USER(3): i1 #<MYCLASS {1FCD402}> CL-USER(4): (describe i1) #<MYCLASS {1FCD402}> is an instance of #<STANDARD-CLASS MYCLASS {DB3331}>. The following slots have :INSTANCE allocation: IV1 unbound IV2 unbound IV3 unbound The following slots have :CLASS allocation: CV1 unbound CL-USER(5):
Looks better now.
armedbear-devel@common-lisp.net