🚀 go-pugleaf

 
For the attention of : Anybody
 
      At  present I am converting a program from Interlisp-D to Common
lisp. The program uses a macro to define NLAMBDA functions, which  are
not  supported in Common lisp. A solution to the NLAMBDA problem is to
create a macro of the function name which places the data  in  a  list
and then calls the function, which is now under a different name. This
works,  however,  when  the  macro tries to define the calling macro I
have a problem. The calling macro requires a quote  comma  before  the
variable so that it is evaluated but this causes an error as the comma
is outside the scope of a back quote.
 
      My original code is :-
 
      (PUTPROPS DFEXPR MACRO (LIST (BQUOTE (LET (NAME)
            (SETQ NAME (DEFINEQ (, (CAR LIST)
                              (NLAMBDA , (CAADR LIST)
                                       ,@
                                       (CDDR LIST)))))
            (CAR NAME)
      )
 
      The Common lisp macro should define a calling macro like :-
 
      (defmacro function-name (&rest list)
        `(function-name-with-bit-added ',list))
 
      NOTE : The "`" symbol above is the back quote symbol.
 
      NOTE  :  The  comma after the "'" and before "list" in the above
defmacro is the comma I am having problems with.
 
      Can anybody give advice or help with a Common lisp version.
                                        
                                        Richard Relf
                                        Admiralty Research Establishment
                                        Portland
                                        Dorset
                                        UK