Code: Select all
(setf (symbol-function 'add) #'+)
Code: Select all
(setf (symbol-function 'add) (symbol-function '+))
Now, I'd like to do the same thing for macros. Any ideas?
Code: Select all
(setf (symbol-function 'add) #'+)
Code: Select all
(setf (symbol-function 'add) (symbol-function '+))
Code: Select all
(defmacro <name> ((&body lambda-list) &body body)
`(lambda ,lambda-list ,@body))
Code: Select all
(<-> 45 my-list)
Code: Select all
(push 45 my-list)
Code: Select all
;; Wrapper macro which may provide nicer contextual help in something like SLIME
(defmacro <-> (value place) `(push ,value ,place))
;; Transfer the macro function, analogous to your previous work with symbol-function
(setf (macro-function '<->) (macro-function 'push))