I$+d"d`dB +&>9iLI@Y> @ @ &~lAd <+ |gx@ |+xP@M&d;v "$ ` ? 3`+ `+5@v0 @* gU8  @d:U:U!.,F,) 0,+,.,n1P/+an+-27?Command error5B7@!"M6@!"Lu BB DBRFC LD,nan+@*f Rf1P+ `n`+anl`rlm.+7@!"Lu B? D? F@ LA LA $; +" B?+ 2H,4 f`n+9,nan+7@!"Lu B?6@ D?1H F@ LA LA $< +" D?+ 2N,4`n`+;`nl+8 fGfarl+;  G Q@;Q@= B!$9 +! B tat+2`tl.7D? @7@B DB!&8v`nl!&(v7@C FC`B+2 `Z(." b+A:(ZBE@@ZBF /(Z`(B.bF@@U  @V @WOjDOlE`nl+c>d+Td,X.,Oj,+^,V+R:>:>,+^@ ,V-"p2J9 Y@ 2,+X,V-"p9 \7"c+h:>:>ZBX4*g4,ghO@   2" D+X: ,V-"p+can,p+R5*z5,z A`n7@>+l,| 2B7@>+o 2E6@g 2G,A,)+7`d+yZBa@@d Je Le,+u,V+w e e+a:d3"d+s/ / `n+}`n+R,k. d. d+R/*= RX.,X. 8 8V F8V2&78W78E/!4q J =&ZR8WQ2` R8,~`n, 82&8D+:8,Q8E,>:8D,,^/.8E!`*"HL8.D8DU  @8V,~aN,~O@`:`2b,~ 0>7@>6@, @@> 0, ,> , ,| 0, , ,^+O@cO@cd,"X.,"6`c:x,~:83b8D+2>8Q`8U,L`o<a,~an40$:8 B8D, 8 Ba 8URD+,,Lab`,4P5p+ &fab`,4P a/"XB:cZNc,~FZ<31f+7[P,~,>h 8D.&,ZRbZ<3/b/2h Rb02H+IZ R.2 r7b+F5rI-27?Buffer capacity exceeded and no core availableZ/.rb`N+U( RbaN+O"rb.Ra.Rx x.FQF*2+S Q"e b/F>bQ2 J S42 b.RFU  @W,^,~,~ BF DG &cF+Z:F`FcF+\:G`GFG2B+a1Ban@5B\,~F0B1Ban 7+`0D1Dan 7+]3B+^0B1Dan@+j4Bj4Dj:x,~d,p K,|,X.,p M,|+O@`O@V:`2b8,~,>,>@j B8, 8,x,,^,^+q 08, 0,[2PV, 0,5P|,~an+6@>+),)?@`l.,~ PV&0QRx6@,[x.0+4Pj000p00+ !0@ X0/, !`anen++O@` \_ <X*<_`n+ 0an,+ O,| O,|, Q,| Q,|,),)  @`!<X*< _d.6@g+f++ 2R,A ?,%Rr@4R 0,+ @,% 2S,B+E B R? 2U,A ?,% 2V,B+E Xatp,~4P&.0,++& 0,+ 0?`:,.P:1Pan,~ `,~-27?Output device error-27?Output initialization error 2Y,A `,A+E,>,9,= 4 0)P.0, =t:,~ 0++,> 0++:>S+9,F,)Q2A`7,+5PC,~,),)+  iSH8+ ,~ @,d+`o<a+d?a<b-1<\7A<b+L<`4PL0P1P+e1P+L1P+dQ<_d0,~ B "d+@ "D+c-27?File 1 read error D $d+@ $D+c-27?File 2 read error;=;=<=l/<ag:8Ul0,~:> ]an,|d,>^-0UO@<+i`n+lA.,>^-0ZO@=+l@b@d@lfd.!*A@@t,}0P 1p+1P +0P/1P+1P+l.1P+1P+1P-+,00 0p-+_h`jpP+q?`9 @84P}0P?1P> 0 1P 0/0000p=+d0P1P+},~7  +p4H 0H+ 0H,~R[`!2s0AL*r RL Rf,~8;K{=R: t)6 :K8*7*6-+:(1-386H2Hy\q}Y1239R>9YR,}!2|0QL(*r52 oL(O@g+q1P$+K1P(+@,14R Rd0P&1P*+&+q0P&7 +q) !! @+, *,00P+S ,00P.+X +q 2,}000p,~(R.2Gh+1Q2A` RG ?,S 0,Q ? rar+Q6R?,SR@4R= 0,QR@,S7RA+C 0-,Q[A,W 0,QZA,W 0.,Q a,R a,R2b&2,>,X,^,X 0,Q2b4ctc&2,> 2P,X,^&2,> T],S,^ 2HV,X 0PG,~7d Xat`,~4PSat .0,Q+Sg & &2QTx?`6@,Y[x.0+Q* c ,# 6# # 6 +-i&+-N&,s N. >C :~c ,3 `nd.`nd.H`nd. h.@in@d.@`n d.@`n`d.ang :anH+u+d-0U? <+l;:x,~X.`n+t-0Z? =+p=;x@,~,m+,r+ 2B,x9u1:X,~0z`+lS,9:> ,8 ,8 Far+,8+~ /52"`!`,> ",==b,9+~1z`,r+l1:X9,?,> ,8,~91:X+,? ,8,~1:`,m+l9 ,m+0 5"" :(,~,r+9 5$',~@j,4,, :(0z0 :0@b0Z(+*j,m+00Z0+*l,r+92B,x5*5,9[`F*XaJ~90-27?File 1 not in SAV format[`F,XaL~+9-27?File 2 not in SAV format[ F*XaJ~+l  :01z`,r+l5,-1:X+5,?,> ,8,~*l690[ F,XaL~+l :(1z`,m+l5*61:X+>,? ,8,~*j?99/0M&d;v| HANo differences encountered%files are different?files are different++S****HK**************HLFile 1) HNHHFile 2) HPHN?Input error- file not found?Device : NOT AVAILABLEH?2K core needed and not availableUZHGjl000p++{ created: ,@0@ @ H,>,>,>,>( QDx@,>,>,>,>!&>9Z( +r!$ @f@+z @ ` +r?$x+n "+o &} & ,^,^,^,^,^ZB([ b+ ,^,^,^,~:~Q!$1F+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