deep binding vs shallow binding

dee-binding.lisp

;;;; **deep binding**


;;; look up
(cdr (assq 'the-symbol *the-stack*))


;;; funcall
; wind...
(loop for arg  in args
      for parm in parms
      do (push (cons parm arg) *the-stack*))

; call...
(eval the-body)

; unwind...
(loop for parm in parms
      do (pop *the-stack*))

shallow-binding.lisp

;;; **shallow binding**


;;; look up
(car (symbol-value 'the-symbol))


;;; funcall
; wind...
(loop for arg  in args
      for parm in parms
      do (push arg (symbol-value parm))

; call...
(eval the-body)

; unwind...
(loop for parm in parms
      do (pop (symbol-value parm)))