make a function like lambda

[ssqq]

I want design a function:

Code Select Expand

(context 'extend-env)
(extend-env:filter 1 2 3) --> (extend-env:filter 1 2 3)

In this context, some primitive function call would not evalute anything.



How to design this function?

[rrq]

What about:

Code Select Expand

(define (extend-env:filter) (cons 'extend-env:filter (args))
or, if you don't want its arguments to be evaluated:

Code Select Expand

(define-macro (extend-env:filter) (cons 'extend-env:filter (args))

[ssqq]

Thanks ralph.ronnquist！



I want make a extend enviroment (context) to prevent all primitive function to evualte.

Code Select Expand

(new Class 'extend-env)

(define (create-funcs f)
  (set (eval f) (append (lambda ()) (list (list 'cons f '(args))))))

(setq built-in (difference
                 (filter eval (symbols))
                 '(define context MAIN Class Tree create-funcs)))

(map create-funcs (map quote (map (fn (x) (sym x 'extend-env)) built-in)))

(save "extend-env.lsp" 'extend-env)