All pastes #796172 Raw Edit

Miscellany

public text v1 · immutable
#796172 ·published 2007-11-24 20:44 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)
; -> (make-test-lambda nother-func)