Files with non-ascii characters converted to UTF-8, for basic testing
This commit is contained in:
rmkaplan
270
sources/CLISP
270
sources/CLISP
@@ -1,18 +1,11 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "16-May-90 12:27:02" {DSK}<usr>local>lde>lispcore>sources>CLISP.;2 45083
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT UTF-8)
|
||||
|
||||
changes to%: (VARS CLISPCOMS)
|
||||
(FILECREATED "19-Feb-2026 12:00:55" {WMEDLEY}<sources>CLISP.;2 44501
|
||||
|
||||
previous date%: "26-Nov-86 12:32:58" {DSK}<usr>local>lde>lispcore>sources>CLISP.;1)
|
||||
:EDIT-BY rmk
|
||||
|
||||
:PREVIOUS-DATE "16-May-90 12:27:02" {WMEDLEY}<sources>CLISP.;1)
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1982, 1983, 1984, 1985, 1986, 1990 by Venue & Xerox Corporation. All rights reserved.
|
||||
The following program was created in 1982 but has not been published
|
||||
within the meaning of the copyright law, is furnished under license,
|
||||
and may not be used, copied and/or disclosed except in accordance
|
||||
with the terms of said license.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT CLISPCOMS)
|
||||
|
||||
@@ -57,16 +50,16 @@ with the terms of said license.
|
||||
(COMS (* CLISP props)
|
||||
(PROP CLISPTYPE %')
|
||||
[E (SETQQ CLISPCHARS
|
||||
(^ * / + - = _ %: %' ~ +- ~= < > @ ! ¬ ))
|
||||
(↑ * / + - = ← %: %' ~ +- ~= < > @ ! _ ^))
|
||||
(CLISPDEC '(STANDARD MIXED]
|
||||
[VARS (CLISPFLG T)
|
||||
(CLISPCHARS '(^ * / + - = _ %: %' ~ +- ~= < > @ ! ¬ ]
|
||||
(CLISPCHARS '(↑ * / + - = ← %: %' ~ +- ~= < > @ ! _ ^]
|
||||
(INITVARS (CLISPHELPFLG T)
|
||||
(TREATASCLISPFLG)
|
||||
(CLISPINFIXSPLST)
|
||||
(CLISPCHARRAY (MAKEBITTABLE CLISPCHARS))
|
||||
[LEFT.ARROWS.BITTABLE (MAKEBITTABLE '(_ ¬]
|
||||
(LEFT.ARROW '_)
|
||||
[LEFT.ARROWS.BITTABLE (MAKEBITTABLE '(← _]
|
||||
(LEFT.ARROW '←)
|
||||
(CLISPISWORDSPLST)
|
||||
(CLISPLASTSUB (CONS))
|
||||
(CHECKCARATOMFLG)
|
||||
@@ -74,7 +67,7 @@ with the terms of said license.
|
||||
(CLISPARITHCLASSLST '(INTEGER FIXED MIXED FLOATING))
|
||||
(DWIMINMACROSFLG NIL))
|
||||
(IFPROP (CLISPTYPE LISPFN UNARYOP CLISPCLASS CLISPCLASSDEF CLISPNEG CLISPBRACKET)
|
||||
^ * / + - = _ ¬ %: %' ~ +- ~= < > @ !)
|
||||
^ ↑ * / + - = ← _ %: %' ~ +- ~= < > @ !)
|
||||
(VARS DECLWORDS)
|
||||
(IFPROP (CLISPTYPE LISPFN UNARYOP CLISPINFIX CLISPCLASS CLISPCLASSDEF CLISPNEG
|
||||
BROADSCOPE)
|
||||
@@ -160,34 +153,14 @@ with the terms of said license.
|
||||
|
||||
(RPAQ? RPARKEY 0)
|
||||
|
||||
(RPAQ? WTFIXCHCONLST '(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
|
||||
NIL NIL))
|
||||
(RPAQ? WTFIXCHCONLST '(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
|
||||
NIL))
|
||||
|
||||
(RPAQ? WTFIXCHCONLST1 '(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
|
||||
NIL NIL))
|
||||
(RPAQ? WTFIXCHCONLST1 '(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
|
||||
NIL))
|
||||
|
||||
(ADDTOVAR EDITMACROS
|
||||
(FIX9 (X N)
|
||||
(BIND (E (SETQ %#1 (EDITFPAT 'X))
|
||||
T)
|
||||
(IF (NOT (ATOM (%##)))
|
||||
(1))
|
||||
(COMS (SPLIT89 RPARKEY N))
|
||||
(I F RPARKEY T)
|
||||
(E [SETQ %#2 (ADD1 (LENGTH (CAR L]
|
||||
T)
|
||||
!0 MARK (LPQ [IF (OR (NULL %#1)
|
||||
(NOT (EDIT4E %#1 (%## 1]
|
||||
UP
|
||||
(E (SETQ %#3 (LENGTH (CAR L)))
|
||||
T)
|
||||
(I RI 1 (MINUS %#2))
|
||||
(E (SETQ %#2 %#3)
|
||||
T)
|
||||
1 !0)
|
||||
__
|
||||
(DELETE NX)))
|
||||
(FIX9 NIL (FIX9))
|
||||
(FIX8 NIL (FIX8))
|
||||
(FIX8 (X N)
|
||||
(BIND (E (SETQ %#1 (EDITFPAT 'X))
|
||||
T)
|
||||
@@ -206,14 +179,34 @@ with the terms of said license.
|
||||
UP
|
||||
(RO 1)
|
||||
!0)))
|
||||
(FIX8 NIL (FIX8)))
|
||||
(FIX9 NIL (FIX9))
|
||||
(FIX9 (X N)
|
||||
(BIND (E (SETQ %#1 (EDITFPAT 'X))
|
||||
T)
|
||||
(IF (NOT (ATOM (%##)))
|
||||
(1))
|
||||
(COMS (SPLIT89 RPARKEY N))
|
||||
(I F RPARKEY T)
|
||||
(E [SETQ %#2 (ADD1 (LENGTH (CAR L]
|
||||
T)
|
||||
!0 MARK (LPQ [IF (OR (NULL %#1)
|
||||
(NOT (EDIT4E %#1 (%## 1]
|
||||
UP
|
||||
(E (SETQ %#3 (LENGTH (CAR L)))
|
||||
T)
|
||||
(I RI 1 (MINUS %#2))
|
||||
(E (SETQ %#2 %#3)
|
||||
T)
|
||||
1 !0)
|
||||
←←
|
||||
(DELETE NX))))
|
||||
|
||||
(ADDTOVAR DWIMUSERFORMS )
|
||||
|
||||
(ADDTOVAR LAMBDASPLST LAMBDA NLAMBDA)
|
||||
|
||||
(ADDTOVAR OKREEVALST AND OR PROGN SAVESETQ CAR CDR ADD1 SUB1 CONS LIST EQ EQUAL PRINT PRIN1
|
||||
APPEND NEQ NOT NULL)
|
||||
(ADDTOVAR OKREEVALST AND OR PROGN SAVESETQ CAR CDR ADD1 SUB1 CONS LIST EQ EQUAL PRINT PRIN1 APPEND
|
||||
NEQ NOT NULL)
|
||||
|
||||
(ADDTOVAR NOFIXFNSLST )
|
||||
|
||||
@@ -266,6 +259,17 @@ with the terms of said license.
|
||||
(ADDTOVAR DWIMEQUIVLST )
|
||||
|
||||
(ADDTOVAR EDITMACROS
|
||||
(CLISP%: NIL (BIND (E (COND ((SETQ %#1 (AND CLISPARRAY (GETHASH (%##)
|
||||
CLISPARRAY)))
|
||||
(SETQQ COM CLISP%:)
|
||||
(EDITE %#1))
|
||||
(T (PRIN1 '"not translated.
|
||||
" T)))
|
||||
T)))
|
||||
(NOCLISP COMS (RESETVAR CLISPTRANFLG NIL . COMS))
|
||||
(NOCLISP NIL (NOCLISP TTY%:))
|
||||
(!DW NIL (RESETVAR CLISPRETRANFLG T DW))
|
||||
(PPT NIL (RESETVAR PRETTYTRANFLG T PP))
|
||||
(DW NIL (BIND (E (PROGN (SETQ %#1 (%##))
|
||||
(AND (CDR L)
|
||||
(%## !0 (E (SETQ %#2 L)
|
||||
@@ -280,18 +284,7 @@ with the terms of said license.
|
||||
(IF (LISTP %#3)
|
||||
(1)
|
||||
NIL))
|
||||
NIL)))
|
||||
(PPT NIL (RESETVAR PRETTYTRANFLG T PP))
|
||||
(!DW NIL (RESETVAR CLISPRETRANFLG T DW))
|
||||
(NOCLISP NIL (NOCLISP TTY%:))
|
||||
(NOCLISP COMS (RESETVAR CLISPTRANFLG NIL . COMS))
|
||||
(CLISP%: NIL (BIND (E (COND ((SETQ %#1 (AND CLISPARRAY (GETHASH (%##)
|
||||
CLISPARRAY)))
|
||||
(SETQQ COM CLISP%:)
|
||||
(EDITE %#1))
|
||||
(T (PRIN1 '"not translated.
|
||||
" T)))
|
||||
T))))
|
||||
NIL))))
|
||||
|
||||
(ADDTOVAR EDITCOMSA PPT DW !DW CLISP%:)
|
||||
|
||||
@@ -304,7 +297,7 @@ with the terms of said license.
|
||||
|
||||
(RPAQQ CLISPFLG T)
|
||||
|
||||
(RPAQQ CLISPCHARS (^ * / + - = _ %: %' ~ +- ~= < > @ ! ¬ ))
|
||||
(RPAQQ CLISPCHARS (↑ * / + - = ← %: %' ~ +- ~= < > @ ! _ ^))
|
||||
|
||||
(RPAQ? CLISPHELPFLG T)
|
||||
|
||||
@@ -314,9 +307,9 @@ with the terms of said license.
|
||||
|
||||
(RPAQ? CLISPCHARRAY (MAKEBITTABLE CLISPCHARS))
|
||||
|
||||
(RPAQ? LEFT.ARROWS.BITTABLE (MAKEBITTABLE '(_ ¬)))
|
||||
(RPAQ? LEFT.ARROWS.BITTABLE (MAKEBITTABLE '(← _)))
|
||||
|
||||
(RPAQ? LEFT.ARROW '_)
|
||||
(RPAQ? LEFT.ARROW '←)
|
||||
|
||||
(RPAQ? CLISPISWORDSPLST )
|
||||
|
||||
@@ -330,10 +323,10 @@ with the terms of said license.
|
||||
|
||||
(RPAQ? DWIMINMACROSFLG NIL)
|
||||
|
||||
(PUTPROPS CLISPTYPE 6)
|
||||
|
||||
(PUTPROPS ^ CLISPTYPE 6)
|
||||
|
||||
(PUTPROPS ↑ CLISPTYPE 6)
|
||||
|
||||
(PUTPROPS * CLISPTYPE 4)
|
||||
|
||||
(PUTPROPS / CLISPTYPE 4)
|
||||
@@ -344,9 +337,9 @@ with the terms of said license.
|
||||
|
||||
(PUTPROPS = CLISPTYPE -20)
|
||||
|
||||
(PUTPROPS _ CLISPTYPE (8 . -12))
|
||||
(PUTPROPS ← CLISPTYPE (8 . -12))
|
||||
|
||||
(PUTPROPS ¬ CLISPTYPE (8 . -12))
|
||||
(PUTPROPS _ CLISPTYPE (8 . -12))
|
||||
|
||||
(PUTPROPS %: CLISPTYPE (14 . 13))
|
||||
|
||||
@@ -360,10 +353,10 @@ with the terms of said license.
|
||||
|
||||
(PUTPROPS > CLISPTYPE BRACKET)
|
||||
|
||||
(PUTPROPS LISPFN EXPT)
|
||||
|
||||
(PUTPROPS ^ LISPFN EXPT)
|
||||
|
||||
(PUTPROPS ↑ LISPFN EXPT)
|
||||
|
||||
(PUTPROPS * LISPFN TIMES)
|
||||
|
||||
(PUTPROPS / LISPFN QUOTIENT)
|
||||
@@ -374,9 +367,9 @@ with the terms of said license.
|
||||
|
||||
(PUTPROPS = LISPFN EQ)
|
||||
|
||||
(PUTPROPS _ LISPFN SETQ)
|
||||
(PUTPROPS ← LISPFN SETQ)
|
||||
|
||||
(PUTPROPS ¬ LISPFN SETQ)
|
||||
(PUTPROPS _ LISPFN SETQ)
|
||||
|
||||
(PUTPROPS %' LISPFN QUOTE)
|
||||
|
||||
@@ -750,7 +743,7 @@ with the terms of said license.
|
||||
|
||||
(PUTPROPS OR CLISPINFIX or)
|
||||
|
||||
(PUTPROPS SETQ CLISPINFIX _)
|
||||
(PUTPROPS SETQ CLISPINFIX ←)
|
||||
|
||||
(PUTPROPS IPLUS CLISPINFIX +)
|
||||
|
||||
@@ -780,7 +773,7 @@ with the terms of said license.
|
||||
|
||||
(PUTPROPS GREATERP CLISPINFIX gt)
|
||||
|
||||
(PUTPROPS EXPT CLISPINFIX ^)
|
||||
(PUTPROPS EXPT CLISPINFIX ↑)
|
||||
|
||||
(PUTPROPS LT CLISPCLASS LT)
|
||||
|
||||
@@ -931,7 +924,7 @@ with the terms of said license.
|
||||
(PUTPROPS SETA SETFN (ELT))
|
||||
|
||||
(DEFOPTIMIZER CLISP% (X &REST Y)
|
||||
X)
|
||||
X)
|
||||
|
||||
(PUTPROPS AND CLISPWORD T)
|
||||
|
||||
@@ -1146,83 +1139,82 @@ with the terms of said license.
|
||||
(PUTPROPS while CLISPWORD (FORWORD . while))
|
||||
|
||||
(PUTPROPS always I.S.OPR ((COND ((NULL BODY)
|
||||
(SETQ $$VAL NIL)
|
||||
(GO $$OUT)))
|
||||
BIND
|
||||
(SETQ $$VAL T)))
|
||||
(SETQ $$VAL NIL)
|
||||
(GO $$OUT)))
|
||||
BIND
|
||||
(SETQ $$VAL T)))
|
||||
|
||||
(PUTPROPS collect I.S.OPR ((SETQ $$VAL (NCONC1 $$VAL BODY))))
|
||||
|
||||
(PUTPROPS count I.S.OPR ((AND BODY (SETQ $$VAL (ADD1 $$VAL)))
|
||||
BIND
|
||||
($$VAL _ 0)))
|
||||
BIND
|
||||
($$VAL ← 0)))
|
||||
|
||||
(PUTPROPS do I.S.OPR (BODY))
|
||||
|
||||
(PUTPROPS fcollect I.S.OPR [(= SUBPAIR '(VAR1 VAR2)
|
||||
(LIST (GETDUMMYVAR T)
|
||||
(GETDUMMYVAR T))
|
||||
'(PROGN (SETQ VAR1 BODY)
|
||||
(COND [VAR2 (FRPLACD VAR2 (SETQ VAR2 (LIST VAR1]
|
||||
(T (SETQ $$VAL (SETQ VAR2 (LIST VAR1])
|
||||
(LIST (GETDUMMYVAR T)
|
||||
(GETDUMMYVAR T))
|
||||
'(PROGN (SETQ VAR1 BODY)
|
||||
(COND [VAR2 (FRPLACD VAR2 (SETQ VAR2 (LIST VAR1]
|
||||
(T (SETQ $$VAL (SETQ VAR2 (LIST VAR1])
|
||||
|
||||
(PUTPROPS inside I.S.OPR [NIL = SUBST (GETDUMMYVAR)
|
||||
'VAR
|
||||
'(bind (VAR _ BODY)
|
||||
eachtime
|
||||
(COND ((NULL VAR)
|
||||
(GO $$OUT))
|
||||
((NLISTP VAR)
|
||||
(SETQ I.V. VAR)
|
||||
(SETQ VAR NIL))
|
||||
(T (SETQ I.V. (CAR VAR))
|
||||
(SETQ VAR (CDR VAR])
|
||||
'VAR
|
||||
'(bind (VAR ← BODY)
|
||||
eachtime
|
||||
(COND ((NULL VAR)
|
||||
(GO $$OUT))
|
||||
((NLISTP VAR)
|
||||
(SETQ I.V. VAR)
|
||||
(SETQ VAR NIL))
|
||||
(T (SETQ I.V. (CAR VAR))
|
||||
(SETQ VAR (CDR VAR])
|
||||
|
||||
(PUTPROPS join I.S.OPR ((SETQ $$VAL (NCONC $$VAL BODY))))
|
||||
|
||||
(PUTPROPS largest I.S.OPR [NIL = SUBST (GETDUMMYVAR)
|
||||
'$$TEMP
|
||||
'(BIND $$EXTREME $$TEMP DO (SETQ $$TEMP BODY)
|
||||
(COND ((OR (NULL $$EXTREME)
|
||||
(GREATERP $$TEMP $$EXTREME))
|
||||
(SETQ $$EXTREME $$TEMP)
|
||||
(SETQ $$VAL I.V.])
|
||||
'$$TEMP
|
||||
'(BIND $$EXTREME $$TEMP DO (SETQ $$TEMP BODY)
|
||||
(COND ((OR (NULL $$EXTREME)
|
||||
(GREATERP $$TEMP $$EXTREME))
|
||||
(SETQ $$EXTREME $$TEMP)
|
||||
(SETQ $$VAL I.V.])
|
||||
|
||||
(PUTPROPS never I.S.OPR ((COND (BODY (SETQ $$VAL NIL)
|
||||
(GO $$OUT)))
|
||||
BIND
|
||||
($$VAL _ T)))
|
||||
(GO $$OUT)))
|
||||
BIND
|
||||
($$VAL ← T)))
|
||||
|
||||
(PUTPROPS old I.S.OPR MODIFIER)
|
||||
|
||||
(PUTPROPS smallest I.S.OPR [NIL = SUBST (GETDUMMYVAR)
|
||||
'$$TEMP
|
||||
'(BIND $$EXTREME $$TEMP DO (SETQ $$TEMP BODY)
|
||||
(COND ((OR (NULL $$EXTREME)
|
||||
(LESSP $$TEMP $$EXTREME))
|
||||
(SETQ $$EXTREME $$TEMP)
|
||||
(SETQ $$VAL I.V.])
|
||||
'$$TEMP
|
||||
'(BIND $$EXTREME $$TEMP DO (SETQ $$TEMP BODY)
|
||||
(COND ((OR (NULL $$EXTREME)
|
||||
(LESSP $$TEMP $$EXTREME))
|
||||
(SETQ $$EXTREME $$TEMP)
|
||||
(SETQ $$VAL I.V.])
|
||||
|
||||
(PUTPROPS sum I.S.OPR ((SETQ $$VAL (PLUS $$VAL BODY))
|
||||
BIND
|
||||
($$VAL _ 0)))
|
||||
BIND
|
||||
($$VAL ← 0)))
|
||||
|
||||
(PUTPROPS thereis I.S.OPR [(COND (BODY (SETQ $$VAL (OR I.V. T))
|
||||
(GO $$OUT])
|
||||
(GO $$OUT])
|
||||
|
||||
(ADDTOVAR I.S.OPRLST ALWAYS AS BIND BY COLLECT COUNT DECLARE DECLARE%: DO EACHTIME FCOLLECT
|
||||
FINALLY FIND FIRST FOR FROM IN INSIDE ISTHERE JOIN LARGEST NEVER OLD
|
||||
ON ORIGINAL REPEATUNTIL REPEATWHILE SMALLEST SUCHTHAT SUM THEREIS THRU
|
||||
TO UNLESS UNTIL WHEN WHERE WHILE always as bind by collect count
|
||||
declare declare%: do eachtime fcollect finally find first for from in
|
||||
inside isthere join largest never old on original repeatuntil
|
||||
repeatwhile smallest suchthat sum thereis thru to unless until when
|
||||
where while)
|
||||
(ADDTOVAR I.S.OPRLST ALWAYS AS BIND BY COLLECT COUNT DECLARE DECLARE%: DO EACHTIME FCOLLECT FINALLY
|
||||
FIND FIRST FOR FROM IN INSIDE ISTHERE JOIN LARGEST NEVER OLD ON ORIGINAL
|
||||
REPEATUNTIL REPEATWHILE SMALLEST SUCHTHAT SUM THEREIS THRU TO UNLESS UNTIL
|
||||
WHEN WHERE WHILE always as bind by collect count declare declare%: do
|
||||
eachtime fcollect finally find first for from in inside isthere join
|
||||
largest never old on original repeatuntil repeatwhile smallest suchthat
|
||||
sum thereis thru to unless until when where while)
|
||||
|
||||
(ADDTOVAR CLISPFORWORDSPLST ALWAYS AS BIND BY COLLECT COUNT DECLARE DECLARE%: DO EACHTIME
|
||||
FCOLLECT FINALLY FIND FIRST FOR FROM IN INSIDE ISTHERE JOIN
|
||||
LARGEST NEVER OLD ON ORIGINAL REPEATUNTIL REPEATWHILE SMALLEST
|
||||
SUCHTHAT SUM THEREIS THRU TO UNLESS UNTIL WHEN WHERE WHILE)
|
||||
(ADDTOVAR CLISPFORWORDSPLST ALWAYS AS BIND BY COLLECT COUNT DECLARE DECLARE%: DO EACHTIME FCOLLECT
|
||||
FINALLY FIND FIRST FOR FROM IN INSIDE ISTHERE JOIN LARGEST NEVER
|
||||
OLD ON ORIGINAL REPEATUNTIL REPEATWHILE SMALLEST SUCHTHAT SUM
|
||||
THEREIS THRU TO UNLESS UNTIL WHEN WHERE WHILE)
|
||||
|
||||
(RPAQQ CLISPDUMMYFORVARS ($$TEM0 $$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5 $$TEM6))
|
||||
|
||||
@@ -1241,17 +1233,18 @@ with the terms of said license.
|
||||
(DEFINEQ
|
||||
|
||||
(DUMPI.S.OPRS
|
||||
[NLAMBDA X (* lmm "14-Aug-84 18:34")
|
||||
|
||||
(* Dump I.S.OPRS definitions. -
|
||||
redefined to dump out same case as given)
|
||||
|
||||
[NLAMBDA X (* lmm "14-Aug-84 18:34")
|
||||
(* Dump I.S.OPRS definitions.
|
||||
-
|
||||
redefined to dump out same case as
|
||||
given)
|
||||
(for Y in X collect (OR (GETDEF.I.S.OPR Y)
|
||||
(PROG1 NIL (LISPXPRINT (LIST 'I.S.OPR Y 'not 'defined)
|
||||
T T])
|
||||
(PROG1 NIL
|
||||
(LISPXPRINT (LIST 'I.S.OPR Y 'not 'defined)
|
||||
T T))])
|
||||
|
||||
(GETDEF.I.S.OPR
|
||||
[LAMBDA (Y) (* lmm "14-Aug-84 18:34")
|
||||
[LAMBDA (Y) (* lmm "14-Aug-84 18:34")
|
||||
(PROG (TEM BODY EVALFLG)
|
||||
(RETURN
|
||||
(CONS 'I.S.OPR
|
||||
@@ -1279,9 +1272,9 @@ with the terms of said license.
|
||||
[(CDR BODY)
|
||||
(COND
|
||||
(EVALFLG (SHOULDNT)))
|
||||
|
||||
(* somehow there was an = in front of the i.s.type and not in front of the
|
||||
others. this shouldnt happen)
|
||||
|
||||
(* somehow there was an = in front of the i.s.type and not in front of the
|
||||
others. this shouldnt happen)
|
||||
|
||||
(LIST (KWOTE (CDR BODY]
|
||||
(EVALFLG '(NIL T]
|
||||
@@ -1298,11 +1291,11 @@ with the terms of said license.
|
||||
|
||||
|
||||
(ADDTOVAR DURATIONCLISPWORDS (TIMERUNITS timerUnits timerunits)
|
||||
(USINGBOX usingBox usingbox)
|
||||
(USINGTIMER usingTimer usingtimer)
|
||||
(FORDURATION forDuration forduration DURING during)
|
||||
(RESOURCENAME resourceName resourcename)
|
||||
(UNTILDATE untilDate untildate))
|
||||
(USINGBOX usingBox usingbox)
|
||||
(USINGTIMER usingTimer usingtimer)
|
||||
(FORDURATION forDuration forduration DURING during)
|
||||
(RESOURCENAME resourceName resourcename)
|
||||
(UNTILDATE untilDate untildate))
|
||||
|
||||
(PUTPROPS TIMERUNITS CLISPWORD (FORWORD . timerUnits))
|
||||
|
||||
@@ -1477,7 +1470,6 @@ with the terms of said license.
|
||||
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(PUTPROPS CLISP COPYRIGHT ("Venue & Xerox Corporation" T 1982 1983 1984 1985 1986 1990))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (37614 40224 (DUMPI.S.OPRS 37624 . 38032) (GETDEF.I.S.OPR 38034 . 40222)))))
|
||||
(FILEMAP (NIL (36881 39751 (DUMPI.S.OPRS 36891 . 37559) (GETDEF.I.S.OPR 37561 . 39749)))))
|
||||
STOP
|
||||
|
||||
BIN
sources/CLISP.DFASL
Normal file
BIN
sources/CLISP.DFASL
Normal file
Binary file not shown.
File diff suppressed because one or more lines are too long
2438
sources/DWIMIFY
2438
sources/DWIMIFY
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Reference in New Issue
Block a user