All pastes #796171 Raw Edit

Miscellany

public text v1 · immutable
#796171 ·published 2007-11-24 20:43 UTC
rendered paste body
(defmacro make-test-lambda (arg)
  `(lambda () (hardcoded-func ,arg)))

;works: 
(make-test-lambda 'nother-func)
; ->(lambda nil (hardcoded-func (quote nother-func)))

(defun my-test (arg)
  (make-test-lambda arg))

;doesn't work:
(my-test 'nother-func)
; -> (lambda nil (hardcoded-func arg))


(defun my-test2 (arg)
  (list 'make-test-lambda arg))

;doesn't work:
(my-test2 'nother-func)
; -> (lambda nil (hardcoded-func arg))