Parent Directory | Revision Log | Patch
revision 1.2 by camm, Sat May 7 02:52:28 2005 UTC | revision 1.3 by camm, Wed Jun 29 22:04:17 2005 UTC | |
---|---|---|
# | Line 74 | Line 74 |
74 | (format *debug-io* "~&~A~2%" *break-message*) ;*** | (format *debug-io* "~&~A~2%" *break-message*) ;*** |
75 | (when (> (length *link-array*) 0) | (when (> (length *link-array*) 0) |
76 | (format *debug-io* | (format *debug-io* |
77 | "Fast links are on: do (use-fast-links nil) for debugging~%")) | "Fast links are on: do (si::use-fast-links nil) for debugging~%")) |
78 | (set-current) ;*** | (set-current) ;*** |
79 | (setq *no-prompt* nil) | (setq *no-prompt* nil) |
80 | (show-restarts))) ;*** | (show-restarts))) ;*** |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |