diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-18 14:55:24 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-18 14:55:24 +0200 |
| commit | 8b10a703fa46c052ddd5798914aa16c812408bf4 (patch) | |
| tree | a9c934776d90e65d675647acfead996d224a920c | |
| parent | 62c263853ce0ee2f6b5854d682bb7ab8d7c44a86 (diff) | |
Add dummy function NATIVE-ENVIRONMENT->CONTEXT.
| -rw-r--r-- | sb-eval2.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp index 2b80efb..7ee46c5 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -513,6 +513,11 @@ (declare (ignore context)) (sb-c::internal-make-lexenv nil nil nil nil nil nil nil nil nil nil nil)) +(defun native-environment->context (lexenv) + ;;FIXME + (declare (ignore lexenv)) + (make-null-context)) + (defun globally-special-p (var) (eq :special (sb-int:info :variable :kind var))) |