/[cmucl]/src/hemlock/main.lisp
ViewVC logotype

Diff of /src/hemlock/main.lisp

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

revision 1.15 by pw, Tue Mar 13 15:49:56 2001 UTC revision 1.16 by emarsden, Tue Feb 25 15:18:34 2003 UTC
# Line 292  Line 292 
292                      (delete-region (buffer-region buffer))                      (delete-region (buffer-region buffer))
293                      (with-output-to-mark                      (with-output-to-mark
294                          (*standard-output* (buffer-point buffer))                          (*standard-output* (buffer-point buffer))
295                        (eval `(grindef ,x))      ; hackish, I know...                        (eval `(pprint (function-lambda-expression function)))
296                        (terpri)                        (terpri)
297                        (ed::change-to-buffer buffer)                        (ed::change-to-buffer buffer)
298                        (buffer-start (buffer-point buffer)))))                        (buffer-start (buffer-point buffer)))))

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

  ViewVC Help
Powered by ViewVC 1.1.5