#285: (setf documentation) is undefined until documentation is called
-------------------------+--------------------------------------------------
Reporter: rschlatte | Owner: ehuelsmann
Type: defect | Status: new
Priority: minor | Milestone:
Component: interpreter | Version:
Keywords: |
-------------------------+--------------------------------------------------
Reported by Eric Marsden:
{{{
Armed Bear Common Lisp 1.2.0-dev-svn-14349
Java 1.6.0_18 Sun Microsystems Inc.
OpenJDK 64-Bit Server VM
Low-level initialization completed in 0.241 seconds.
Startup completed in 1.128 seconds.
Type ":help" for a list of available commands.
CL-USER(1): (defun foo (x) x)
FOO
CL-USER(2): (setf (documentation 'foo 'function) "Horx")
#<THREAD "interpreter" {482982BF}>: Debugger invoked on condition of type
UNDEFINED-FUNCTION
The function (SETF DOCUMENTATION) is undefined.
}}}
--
Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/285>
armedbear <http://common-lisp.net/project/armedbear>
armedbear