I$+d/d`d `>siLI@Y> @lAd <+ || |+|P; "$ `3``8 `k@v0 @* g @d:U@+S 0,+,.,n4_+an+-27?Command error/7@(M96@(L BBRFC LD,nan+@D Rf1P`A`n`+anl`rlm.+(L B? F@ LA $; +"`5 2Hi f`n+9,nan+(L B?6@1H F@ LA y +"`5 i`n``w`nl`q farl`w  0wQ@= B)s +! B t=+2`tl.)8`nl)(7@C FC+2`@Q."8 +A@QPZBF QX.bF @WOlE`nl+c>d` Oj,``@}:>,`@ 2J"@ K+X9 \`@}:>ZB4*g4,gH+X@`an,p``n}+l 2B7@>+o 2E6@g ,AS+7`d`ZBa Je,`+w e+a@3"d``n``n`,k. d. d` ,X.2&/-q) J =&TQ2`,~`n,I`A$ AĜ8*"H,~3,~O@`:`2b,~ 0>}6@} ,>,  ,^`'O@cE E6`c:x,~@x+2Q`8U,~anI@, 8URD+,ab`iW &ab`iXB:cS,~FAg9+7t,~ɀZRbDg/b/202H+IZ̀< `-27?Buffer capacity exceeded and no core availableZ܀`3+O\Ԁ.Rx x.FQF*2` (e) b/F>bQ2 S.RF @W,~ DG q`@q`:G`GG2B+a0;an@,~0B0 an 7`0D1 an 7+]3B`;1;an@+j:x,~,p, ,p+O@`O@V:`X,~,>@j,,x,,^+q 1, ),[2PV, ,5P|,~an+6@>`SSl.,~ PV&0QRx6@[x.0+  00`!0@ X0/!`anen++*<_`n+ 0;,+ O, QSS /O 6@g+f++ 2R,AKRr@? 0,+ @K ,B+E B R? ,A ?K ,B+Eatp,~4P&.0,++& ,+ 0u,.P:1Pan,~ `,~-27?Output device error-27?Output initialization error 2Y,A `,A+E}s,= 4 04.0=t:,~ 0++} ++:>d `sSQ2A`7,+ 5PC,~SS+ iSH8+,~++d^^^`^0P4 +e4 `1P`$^d0,~B "d+@ "D`-27?File 1 read errorD $d+@ $D`-27?File 2 read error@w=w=<{g:8Ul0,~:>an,>^O@<+i`n+l+{`@bd.!*A@@t0P< +4+_1P+4/`9l.1P+1P` 4[+, A0p-+_h`jp+q?`9@q0P?4} 4= _ a0p=+d0P4 `,~7  +p0H+ 0H,~R[`!2s0AL\RL,~8;=: t)6 :K8*7*m-+:(c-g86HeHy\q}Yce39R>sYR,fQ\;AQO@g+q1P$+K4Q`?@c4R Rd0P&4U`M`0P&  +qSC!AW,Ua0P+c a]+ +q 2007,~.2G+1Q2A` ?,S 0 ? rar+QԀ,SR@{ 0R@,S` [d 0D ] a2b&2,>,X ,X 04c̀ ,X &2 T],S 2HV,X 0,~7dat`,~at .0` &&2QTx?` ,Y[x.0`*c ,# 6# # 6 jMjM,s s >C :~c ,3 `nd.`nd.H`nd. h.@in@d.@`n d.@`n`d.an :anH+u`-? <`w:x,~ `n+t{+p=;x@,~` ,r+ 2B9u1:X,~0z`+ld s:>,8 ,8F<+,8+~/52X 8 },= s+~1z`,r+l1:X& ,> ,8,~& 1:X`,8,~1:`+l9 +05"",~,r`s O,~@j,1,@b+*j+0`?[=,r`s2B5*5,9xF*XaJ~90-27?File 1 not in SAV format[`F,XaL~`s-27?File 2 not in SAV format[ F*XaJ~+l 1z`,r+l5,-1:X`k,> ,8,~*l690cF,XaL~+l1z`+lm1:X`},8,~*j?&s_a;| HANo differences encountered%files are different?files are different` `****HK**************HLFile 1) HNHHFile 2) HP?Input error- file not found?Device : NOT AVAILABLE ?2K core needed and not availablel009+` created:  @  ,>,>Q QDx@,>,>,>,>)>sZ(+r!$ @f+z@ ` `?$x+nH` &} & PQ`8 + ,^,^,~AQ!$1+j+r% I'm sorry, I can't help you EXP) (CADDDR EXP) (CDDDDR EXP))) ((NOT (ATOM (CADR EXP))) ;;; the new "function on any property" syntax. (COND ((EQ (LENGTH (CADR EXP)) 3.) ;;; "(defun (foo tag type) (args) body)" (FDEF (CAADR EXP) (CADDR (CADR EXP)) (CADDR EXP) (CDDDR EXP))) (T (FDEF (CAADR EXP) 'EXPR (CADDR EXP) (CDDDR EXP))))) (T ;;; as in "(defun foo (args) body)" (FDEF (CADR EXP) 'EXPR (CADDR EXP) (CDDDR EXP))))) (DEFUN FDEF (DEFUNCTION TYPE ARGS BODY) (COND ((EQ PASS 'PASS1) (FDEF1 DEFUNCTION TYPE ARGS)) (ONE-PASS (FDEF-ONE-PASS DEFUNCTION TYPE ARgs BODY)) (T (FDEFS2 ARGS BODY)))) ;;*page (DEFUN FDEF1 (DEFUNCTION TYPE ARGS) ; this processes function definitions during the first pass. ; it records their: ; place of definition - DEFINED-IN ; function type - TYPE ; and arguments - ARGUMENTS ; (PROG () (cond ((eq args 'body-is-name-of-function) ; This is an odd case. It occurs when a defprop ; is used to define one function name to be exactly ; equivalent to another by defproping its value to ; be the name of that function and having EVAL to ; all the work at runtime. ; e.g. (defprop thert ert expr) ; These shinanagins are for the case where the second fn ; (ert) has not yet been defined, and the first must ; hang in limbo until then. (cond ((setq args (get body 'arguments)) (t (addp body defunction 'defprop-trap) ; to be processed eventially by code below (return t)))))) ; detect LEXPRs (cond ((and (atom args) (not (eq args nil))) ; differentiate between lexpr's and exprs of no arguments (setq args (list args)) ;output convention (setq type 'lexpr))) ; ; check for redefining system fns ((lambda (sys-status) (and sys-status (not (and (= (length sys-status) 1) (eq (car sys-status) 'value))) ;just a system atom (warn 'redefine-sysfn))) (status system defunction)) ; ; check for multiply defined functions (cond ((get defunction 'defined-in) (addl 'file-undefns defunction))) ; multiple definitions become reflected by multiple elements in ; their DEFINED-BY and TYPE properties (parallel entries) - the ; CAR of the property always gives the most recent version. ; n.b. Study of the body of such multiple definitions is not ; kept separate, and will come out as a hodgepodge. ; ; compile the usual data ; (addl 'userfns defunction) (addl 'defined-fns defunction) (addl 'file-defuns defunction) (putprop defunction (cons (location) (get defunction 'defined-in)) 'defined-in) (putprop defunction (cons type (get defunction 'type)) 'type) (putprop defunction (or args '(*no-arguments*)) 'arguments) ; ; check DEFPROP trap ((lambda (fns) (cond (fns (mapc '(lambda (fn) (fdef1 f (car (get defunction 'type)) (get defunction 'arguments))) fns)))) (get defunction 'defprop-trap)) )) ;;*page (DEFUN FDEFS2 (ARGS BODY) (PROG NIL (AND (NULL BODY) (RETURN T)) (and (equal (get defunction 'type) '(lexpr)) (setq args (list args))) (ADDBOUND ARGS) (MAPC '(LAMBDA (V) (OR (ATOM V) (WARN 'FN-WITH-NON-ATOMIC-ARG)) (ADDL 'USERVARS V)) ARGS) (COND ((EQ TYPE 'MACRO) (PUTPROP DEFUNCTION (CONS 'LAMBDA (CONS ARGS BODY)) 'MACRO-PROPERTY))) ((LAMBDA (BOUNDVARS) (MAPC 'STUDY BODY)) (APPEND (LIST-IFY ARGS) BOUNDVARS)))) (defun fdef-one-pass (defunction type args body) ; Does everything that FDEF1 and FDEF2 did, plus worries about the declarations. ; It is largely a concatenation of the two !! ; To the function name it adds the properties: ; D5..XE..XF5