← Back to branch summary

~ubuntu-branches/ubuntu/trusty/slime/trusty

« back to all changes in this revision

Viewing changes to present.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Peter Van Eynde
  • Date: 2006-12-05 10:35:50 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20061205103550-qh2ij11czkh5x7ns
Tags: 1:20061201-2
Fix stupid merge error that I missed. 

Show diffs side-by-side

added added

removed removed

Lines of Context:
present.lisp
168
168
          (write-annotation stream #'presentation-end record)))
169
169
      (funcall continue)))
170
170
 
 
171
(defun make-presentations-result (values)
 
172
  ;; Override a function in swank.lisp, so that 
 
173
  ;; nested presentations work in the REPL result.
 
174
  (cond 
 
175
    ((null values)
 
176
     '(:values ()))
 
177
    (t
 
178
     ;; Do the output ourselves.
 
179
     (fresh-line)
 
180
     (dolist (o values)
 
181
       (presenting-object o *standard-output*
 
182
         (prin1 o))
 
183
       (terpri))
 
184
     '(:suppress-output))))
 
185
 
171
186
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
172
187
 
173
188
;; Example: Tell openmcl and cmucl to always present unreadable objects. try (describe 'class)