All pastes #796026 Raw Edit

Someone

public text v1 · immutable
#796026 ·published 2007-11-24 18:19 UTC
rendered paste body
;calls a function handed in
(defun call-func (func) (funcall func))

; a simple func to hand in
(defun simple-func () '(1))
; a func that needs an argument
(defun argument-func (number) (list number))

;works
(call-func 'simple-func)

;use the macro to insert argument
(defmacro macrotest (argument)
  (list 'argument-func argument))

;dosen't work
(let (argument '(3))
  (call-func (macrotest argument)))