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/utility.clisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/boot/strap/utility.clisp b/src/boot/strap/utility.clisp
index 20efc228..2e303001 100644
--- a/src/boot/strap/utility.clisp
+++ b/src/boot/strap/utility.clisp
@@ -287,7 +287,7 @@
       ((NOT
         (AND (CONSP |l|) (PROGN (SETQ |p| (CAR |l|)) (SETQ |l| (CDR |l|)) T)))
        (RETURN NIL))
-      ((AND (CONSP |p|) (EQ (CAR |p|) |x|)) (RETURN |p|))))))
+      ((AND (CONSP |p|) (EQ |x| (CAR |p|))) (RETURN |p|))))))
 
 (DEFUN |substitute!| (|y| |x| |s|)
   (COND ((NULL |s|) NIL) ((EQ |x| |s|) |y|)
-- 
cgit v1.2.3