/[gcl]/gcl/ansi-tests/format-logical-block.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/format-logical-block.lsp

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

revision 1.5 by pfdietz, Sat Aug 21 11:58:41 2004 UTC revision 1.6 by pfdietz, Mon Oct 18 12:14:50 2004 UTC
# Line 298  Line 298 
298  (def-pprint-test format.logical-block.circle.5  (def-pprint-test format.logical-block.circle.5
299    (format nil "~:<~@{~A~^ ~}~:>" (let ((x (list 0))) (cons x x)))    (format nil "~:<~@{~A~^ ~}~:>" (let ((x (list 0))) (cons x x)))
300    "((0) 0)")    "((0) 0)")
301    
302    ;;; ~^ terminates a logical block
303    
304    (def-pprint-test format.logical-block.escape.1
305      (format nil "~<~A~^xxxx~:>" '(1))
306      "1")
307    
308    (def-pprint-test format.logical-block.escape.2
309      (format nil "~<~<~A~^xxx~:>yyy~:>" '((1)))
310      "1yyy")

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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