[Openmcl-devel] function-lambda-list

[Burton Samograd]

On 12-07-09 07:02 PM, Stas Boukarev wrote:
> (ccl:decode-string-from-octets (ccl::source-note-source (ccl:function-source-note #'add)))

Oddly, it works when I run CCL from the command line, but not when I run 
from within SLIME:

CL-USER> (defun add (x) (1+ x))
ADD
CL-USER> (ccl:decode-string-from-octets (ccl::source-note-source 
(ccl:function-source-note #'add)))
; Evaluation aborted on #<TYPE-ERROR #x30200278979D>.
CL-USER> (ccl:decode-string-from-octets (ccl::source-note-source 
(ccl:function-source-note #'add)))
; Evaluation aborted on #<TYPE-ERROR #x30200284D12D>.
CL-USER> (ccl:function-source-note #'add)
NIL
CL-USER> (ccl:function-source-note 'add)
NIL
CL-USER>

--
Burton Samograd