• Als Spam markieren
• Beitrag melden

• 
  Diese Gruppe Alles

• Archiv
• RSS-Feeds

• Kontakt
• Hilfe
• Impressum
• Datenschutz

Re: wie in lisp defun durch setf ersetzen?

Benedikt Rosenau <rosenau@crow.addict.de> writes:
> Rainer Weikusat <rweikusat@mssgmbh.com> schrieb:
>
> [...]
>
>> (defmacro apply-sth (l &rest args)
>>  (let*
>>      ((vl (eval l))
>>       (fl (cond
>>            ((or (symbolp vl) (functionp vl)) `(quote ,vl))
>>            ((consp vl) `(lambda ,@vl))
>>            (T (error "don't know how to apply objects of type ~S"
(type-of vl))))))
>>    `(apply ,fl ',args)))
>
> Kein gensym fuer fl und vl?

?

Antworten