From 8b10a703fa46c052ddd5798914aa16c812408bf4 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Thu, 18 Jul 2013 14:55:24 +0200
Subject: Add dummy function NATIVE-ENVIRONMENT->CONTEXT.

---
 sb-eval2.lisp | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'sb-eval2.lisp')

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)))
 
-- 
cgit v1.2.3