diff options
author | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-30 12:07:51 -0800 |
---|---|---|
committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-30 12:07:51 -0800 |
commit | 0e067c51279d5e82a786ad78af04ada13bd33951 (patch) | |
tree | 38e3b2f636bd1e4556a07bfd415c188669b7529a /src/interp | |
parent | 8d6bf58510fb39efa6824cdc902a6527a90e702b (diff) | |
download | open-axiom-0e067c51279d5e82a786ad78af04ada13bd33951.tar.gz |
Do not rename mkpf.
Diffstat (limited to 'src/interp')
-rw-r--r-- | src/interp/debug.lisp | 2 | ||||
-rw-r--r-- | src/interp/sys-macros.lisp | 14 |
2 files changed, 8 insertions, 8 deletions
diff --git a/src/interp/debug.lisp b/src/interp/debug.lisp index 73f32cb6..823c5452 100644 --- a/src/interp/debug.lisp +++ b/src/interp/debug.lisp @@ -560,7 +560,7 @@ EXAMINE (SETQ RECNO (NOTE |$InputStream|)) (TRACE_OPTION_ERROR 'DEPTH)) T)) (SETQ CONDITION - (MKPF + (|mkpf| (LIST CONDITION WITHIN_CONDITION FROM_CONDITION COUNT_CONDITION DEPTH_CONDITION ) 'AND)) diff --git a/src/interp/sys-macros.lisp b/src/interp/sys-macros.lisp index 871a9668..a1f5161d 100644 --- a/src/interp/sys-macros.lisp +++ b/src/interp/sys-macros.lisp @@ -383,11 +383,11 @@ ((EQUAL (CAR L) (CADR L)) '(ZERO)) ((|member| (CAR L) '(0 (ZERO))) - (MKPF (CDR L) 'MINUS)) + (|mkpf| (CDR L) 'MINUS)) ((|member| (CADR L) '(0 (ZERO))) (CAR L)) ((EQCAR (CADR L) 'MINUS) - (MKPF (LIST (CAR L) (CADADR L)) 'PLUS)) + (|mkpf| (LIST (CAR L) (CADADR L)) 'PLUS)) ((CONS 'DIFFERENCE L)) )) (EXPT (COND ((GREATERP (LENGTH L) 2) @@ -478,10 +478,10 @@ (REMFLAG (CDR L) KEY)))) - (FLAG '(* + AND |and| OR |or| PROGN) 'NARY) ; flag for MKPF + (FLAG '(* + AND |and| OR |or| PROGN) 'NARY) ; flag for |mkpf| - (defun MKPF (L OP) + (defun |mkpf| (L OP) (if (FLAGP OP 'NARY) (SETQ L (MKPFFLATTEN-1 L OP NIL))) (MKPF1 L OP)) @@ -509,7 +509,7 @@ ((ATOM X) (LIST 'spadDO (|reverse!| IL) - (LIST (MKPF (|reverse!| XCL) 'OR) XV) + (LIST (|mkpf| (|reverse!| XCL) 'OR) XV) (SEQOPT (CONS 'SEQ (|append!| (|reverse!| RSL) (LIST (LIST 'EXIT BD))))))) (COND ((ATOM (CAR X)) @@ -645,7 +645,7 @@ '(EXIT RESET IN ON GSTEP ISTEP STEP GENERAL UNTIL WHILE SUCHTHAT EXIT)) (REPEAT-TRAN (CDR L) (CONS (CAR L) LP))) - ((CONS (|reverse!| LP) (MKPF L 'PROGN))))) + ((CONS (|reverse!| LP) (|mkpf| L 'PROGN))))) (defun MK_LEFORM (U) (COND ((|ident?| U) @@ -954,7 +954,7 @@ ((NULL (EQCAR (CAR L) 'SEQ)) (SETQ BODYFORMS (CONS 'SEQ L))) ((SETQ BODYFORMS (CAR L))))) - (SETQ EXITFORMS `(EXIT ,(MKPF EXITFORMS 'PROGN))) + (SETQ EXITFORMS `(EXIT ,(|mkpf| EXITFORMS 'PROGN))) (AND ENDTEST (SETQ ENDTEST (LIST 'COND (LIST ENDTEST '(GO G191))))) (COND ((NULL U-VARS) |