[Openmcl-devel] function-lambda-list

Burton Samograd burton.samograd at gmail.com
Mon Jul 9 18:13:16 PDT 2012


On 12-07-09 07:09 PM, Stas Boukarev wrote:
> Burton Samograd <burton.samograd at gmail.com> writes:
>
>> On 12-07-09 07:02 PM, Stas Boukarev wrote:
>>> (ccl:decode-string-from-octets (ccl::source-note-source (ccl:function-source-note #'add)))

And just to further complicate things:

? (read-from-string (ccl:decode-string-from-octets 
(ccl::source-note-source (ccl:function-source-note #'add))))
(DEFUN ADD (X) (1+ X))
22
? (eval (read-from-string (ccl:decode-string-from-octets 
(ccl::source-note-source (ccl:function-source-note #'add)))))
ADD
? (ccl::source-note-text (ccl:function-source-note #'add))
"(eval (read-from-string (ccl:decode-string-from-octets 
(ccl::source-note-source (ccl:function-source-note #'add)))))"
116
? (ccl:decode-string-from-octets (ccl::source-note-source 
(ccl:function-source-note #'add)))
"(eval (read-from-string (ccl:decode-string-from-octets 
(ccl::source-note-source (ccl:function-source-note #'add)))))"
116

--
Burton Samograd



More information about the Openmcl-devel mailing list