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

Diff of /src/hemlock/lispeval.lisp

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

revision 1.1.1.4 by chiles, Fri Apr 26 17:37:11 1991 UTC revision 1.1.1.5 by ram, Tue Oct 1 17:10:03 1991 UTC
# Line 161  Line 161 
161           (line (mark-line           (line (mark-line
162                  (buffer-end-mark                  (buffer-end-mark
163                   (server-info-background-buffer server))))                   (server-info-background-buffer server))))
164           (message (format nil "~:(~A~) in ~A during ~A."           (message (format nil "~:(~A~) ~@[in ~A ]during ~A."
165                            severity                            severity
166                            function                            function
167                            (note-context note)))                            (note-context note)))

Legend:
Removed from v.1.1.1.4  
changed lines
  Added in v.1.1.1.5

  ViewVC Help
Powered by ViewVC 1.1.5