Update of /project/movitz/cvsroot/movitz/losp/lib In directory clnet:/tmp/cvs-serv9643
Modified Files: shallow-binding.lisp Log Message: Rename package to lib.shallow-binding.
--- /project/movitz/cvsroot/movitz/losp/lib/shallow-binding.lisp 2007/04/09 17:30:30 1.1 +++ /project/movitz/cvsroot/movitz/losp/lib/shallow-binding.lisp 2007/04/12 16:09:27 1.2 @@ -7,18 +7,18 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: shallow-binding.lisp,v 1.1 2007/04/09 17:30:30 ffjeld Exp $ +;;;; $Id: shallow-binding.lisp,v 1.2 2007/04/12 16:09:27 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
-(defpackage los0.shallow-binding +(defpackage lib.shallow-binding (:use common-lisp muerte) (:export #:install-shallow-binding #:deinstall-shallow-binding))
(provide :lib/shallow-binding)
-(in-package los0.shallow-binding) +(in-package lib.shallow-binding)
(define-primitive-function dynamic-variable-install-shallow () "Install each dynamic binding entry between that in ESP @@ -103,6 +103,7 @@ (:movl (:ecx) :eax) ; symbol? (:testb 3 :al) ; (:jz 'not-variable-binding) ; not symbol? + (:movl :ebx (:eax (:offset movitz-symbol value))) ; uninstall. not-variable-binding (:movl (:ecx 12) :ecx) ; proceed search