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 |
|
|