/[gcl]/gcl/ansi-tests/syntax.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/syntax.lsp

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

revision 1.6 by pfdietz, Wed Jan 5 13:48:45 2005 UTC revision 1.7 by pfdietz, Wed Jan 5 15:01:17 2005 UTC
# Line 674  Line 674 
674  (def-syntax-test syntax.sharp-c.5  (def-syntax-test syntax.sharp-c.5
675    (read-from-string "#c (1 1)")    (read-from-string "#c (1 1)")
676    #.(complex 1 1) 8)    #.(complex 1 1) 8)
677    
678    
679    ;;;; Various error cases
680    
681    (def-syntax-test syntax.sharp-whitespace.1
682      (let ((names '("Tab" "Newline" "Linefeed" "Space" "Return" "Page")))
683        (loop for name in names
684              for c = (name-char name)
685              when c
686              nconc
687              (let* ((form `(signals-error
688                             (read-from-string ,(concatenate 'string "#" (string c)))
689                             reader-error))
690                     (vals (multiple-value-list (eval form))))
691                (unless (equal vals '(t))
692                  (list (list name c form vals))))))
693      nil)
694    
695    (def-syntax-test syntax.sharp-greater-than.1
696      (signals-error (read-from-string "#<" nil nil) reader-error)
697      t)
698    
699    
700    (def-syntax-test syntax.sharp-close-paren.1
701      (signals-error (read-from-string "#)" nil nil) reader-error)
702      t)
703    
704    
705    
706              

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

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