X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-misc.lisp;h=5432caed863c4b1fb4e1094c068b7a8fe468a85f;hb=829ced3e78a23ba153ba4db64e6ea6984c2313b6;hp=1352638217d69457b235fc59fc5403ea350c44cc;hpb=f181ad9ffeeadf341b6a16c3591eadf0c1e3fa61;p=sbcl.git

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index 1352638..5432cae 100644
--- a/src/code/target-misc.lisp
+++ b/src/code/target-misc.lisp
@@ -36,8 +36,11 @@
     (sb!eval:interpreted-function
      (let ((name (sb!eval:interpreted-function-name fun))
            (lambda-list (sb!eval:interpreted-function-lambda-list fun))
+           (declarations (sb!eval:interpreted-function-declarations fun))
            (body (sb!eval:interpreted-function-body fun)))
-       (values `(lambda ,lambda-list ,@body)
+       (values `(lambda ,lambda-list
+                  ,@(when declarations `((declare ,@declarations)))
+                  ,@body)
                t name)))
     (function
      (let* ((fun (%simple-fun-self (%fun-fun fun)))
@@ -133,7 +136,8 @@
 
 ;;; various environment inquiries
 
-(defvar *features* '#.sb-cold:*shebang-features*
+(defvar *features*
+  '#.(sort (copy-list sb-cold:*shebang-features*) #'string<)
   #!+sb-doc
   "a list of symbols that describe features provided by the
    implementation")