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

Diff of /gcl/ansi-tests/format-p.lsp

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

revision 1.2 by pfdietz, Sat Nov 27 19:36:18 2004 UTC revision 1.3 by pfdietz, Wed Dec 8 14:54:13 2004 UTC
# Line 26  Line 26 
26          collect (list x s))          collect (list x s))
27    nil)    nil)
28    
29    (deftest formatter.p.5
30      (let ((fn (formatter "~p")))
31        (loop for x in *universe*
32              for s = (formatter-call-to-string fn x)
33              unless (or (eql x 1) (string= s "s"))
34              collect (list x s)))
35      nil)
36    
37  ;;; :p  ;;; :p
38    
39  (def-format-test format.p.6  (def-format-test format.p.6
# Line 74  Line 82 
82          unless (or (eql x 1) (string= s "ies"))          unless (or (eql x 1) (string= s "ies"))
83          collect (list x s))          collect (list x s))
84    nil)    nil)
85    
86    (deftest formatter.p.18
87      (let ((fn (formatter "~@P")))
88        (loop for x in *universe*
89              for s = (formatter-call-to-string fn x)
90              unless (or (eql x 1) (string= s "ies"))
91              collect (list x s)))
92      nil)

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