/[cmucl]/src/code/interr.lisp
ViewVC logotype

Diff of /src/code/interr.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by wlott, Wed Oct 3 09:57:23 1990 UTC revision 1.12 by wlott, Wed Nov 7 01:47:24 1990 UTC
# Line 478  Line 478 
478                        (info (and (< -1 error-number (length *internal-errors*))                        (info (and (< -1 error-number (length *internal-errors*))
479                                   (svref *internal-errors* error-number)))                                   (svref *internal-errors* error-number)))
480                        (fp (int-sap (di::escape-register (alien-value sc)                        (fp (int-sap (di::escape-register (alien-value sc)
481                                                          c::fp-offset))))                                                          vm::fp-offset))))
482                   (collect ((sc-offsets))                   (collect ((sc-offsets))
483                     (loop                     (loop
484                       (when (>= index length)                       (when (>= index length)

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

  ViewVC Help
Powered by ViewVC 1.1.5