diff options
author | dos-reis <gdr@axiomatics.org> | 2013-05-26 06:42:43 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2013-05-26 06:42:43 +0000 |
commit | cbd17230112800448956940165f541d7c49d0dc5 (patch) | |
tree | 8d5f8b63b53082cc77273a17dd29603695beef4d /src/boot/strap/utility.clisp | |
parent | ed9e9f02689b500004c6e81f374da75bffa42a5a (diff) | |
download | open-axiom-cbd17230112800448956940165f541d7c49d0dc5.tar.gz |
Rename MAKE-FILENAME to makeFilename and re-implement in Boot.
Diffstat (limited to 'src/boot/strap/utility.clisp')
-rw-r--r-- | src/boot/strap/utility.clisp | 2 |
1 files changed, 1 insertions, 1 deletions
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|) |