/[gcl]/gcl/clcs/gcl_clcs_top_patches.lisp
ViewVC logotype

Diff of /gcl/clcs/gcl_clcs_top_patches.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)))           ;***

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26