diff options
Diffstat (limited to 'src/boot/strap/includer.clisp')
| -rw-r--r-- | src/boot/strap/includer.clisp | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/boot/strap/includer.clisp b/src/boot/strap/includer.clisp index 02d2408b..ce957612 100644 --- a/src/boot/strap/includer.clisp +++ b/src/boot/strap/includer.clisp @@ -68,9 +68,7 @@ (DEFMACRO |sourceLineNumber| (|bfVar#1|) (LIST '|%SourceLine-num| |bfVar#1|)) -(DEFMACRO |makeSourceLine| (|bfVar#2| |bfVar#1|) - (|applySubst| (LIST (CONS '|bfVar#2| |bfVar#2|) (CONS '|bfVar#1| |bfVar#1|)) - '(|mk%SourceLine| |bfVar#2| |bfVar#1|))) +(DEFMACRO |makeSourceLine| (|s| |n|) (LIST '|mk%SourceLine| |s| |n|)) (DEFUN |lineNo| (|p|) (|sourceLineNumber| (CAAR |p|))) |