From cbd17230112800448956940165f541d7c49d0dc5 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 26 May 2013 06:42:43 +0000
Subject: Rename MAKE-FILENAME to makeFilename and re-implement in Boot.

---
 src/boot/strap/ast.clisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/boot/strap/ast.clisp')

diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp
index fdd34743..94f3cce2 100644
--- a/src/boot/strap/ast.clisp
+++ b/src/boot/strap/ast.clisp
@@ -3739,8 +3739,11 @@
                      |call|))))
      (LIST (LIST 'DEFUN |op| |parms| |call|)))))
 
+(DEFPARAMETER |$ffs| NIL)
+
 (DEFUN |genImportDeclaration| (|op| |sig|)
   (LET* (|s| |t| |m| |ISTMP#2| |op'| |ISTMP#1|)
+    (DECLARE (SPECIAL |$ffs|))
     (COND
      ((NOT
        (AND (CONSP |sig|) (EQ (CAR |sig|) '|%Signature|)
@@ -3765,6 +3768,7 @@
                         (PROGN (SETQ |s| (CAR |ISTMP#2|)) T)))))))
       (|coreError| "invalid function type"))
      (T (COND ((AND |s| (SYMBOLP |s|)) (SETQ |s| (LIST |s|))))
+      (SETQ |$ffs| (CONS |op| |$ffs|))
       (COND
        ((|%hasFeature| :GCL) (|genGCLnativeTranslation| |op| |s| |t| |op'|))
        ((|%hasFeature| :SBCL) (|genSBCLnativeTranslation| |op| |s| |t| |op'|))
-- 
cgit v1.2.3