Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
468975ac
Commit
468975ac
authored
Feb 17, 2003
by
pfdietz
Browse files
Retracted builtin macro error tests pending clarification of the ANSI CL spec.
parent
d8f2ca18
Changes
5
Hide whitespace changes
Inline
Side-by-side
ansi-tests/destructuring-bind.lsp
View file @
468975ac
...
...
@@ -98,11 +98,11 @@
(classify-error (destructuring-bind (a . b) 'x (list a b)))
program-error)
(deftest destructuring-bind.error.5
(classify-error (destructuring-bind))
program-error)
(deftest destructuring-bind.error.6
(classify-error (destructuring-bind x))
program-error)
;;;
(deftest destructuring-bind.error.5
;;;
(classify-error (destructuring-bind))
;;;
program-error)
;;;
;;;
(deftest destructuring-bind.error.6
;;;
(classify-error (destructuring-bind x))
;;;
program-error)
ansi-tests/multiple-value-bind.lsp
View file @
468975ac
...
...
@@ -51,3 +51,12 @@
x y z))
(1 2 0) nil nil 0)
(deftest multiple-value-bind.error.1
(classify-error (multiple-value-bind))
program-error)
(deftest multiple-value-bind.error.2
(classify-error (multiple-value-bind (a b c)))
program-error)
\ No newline at end of file
ansi-tests/multiple-value-list.lsp
0 → 100644
View file @
468975ac
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Mon Feb 17 06:38:07 2003
;;;; Contains: Tests of MULTIPLE-VALUE-LIST
(in-package :cl-test)
(deftest multiple-value-list.1
(multiple-value-list 'a)
(a))
(deftest multiple-value-list.2
(multiple-value-list (values))
nil)
(deftest multiple-value-list.3
(multiple-value-list (values 'a 'b 'c 'd 'e))
(a b c d e))
(deftest multiple-value-list.4
(multiple-value-list (values (values 'a 'b 'c 'd 'e)))
(a))
(deftest multiple-value-list.order.1
(let ((i 0))
(values (multiple-value-list (incf i)) i))
(1) 1)
#|
(deftest multiple-value-list.error.1
(classify-error (multiple-value-list))
program-error)
(deftest multiple-value-list.error.2
(classify-error (multiple-value-list 'a 'b))
program-error)
|#
ansi-tests/unless.lsp
View file @
468975ac
...
...
@@ -44,7 +44,6 @@
x))
a 1)
;;; (deftest unless.error.1
;;; (classify-error (unless))
;;; program-error)
ansi-tests/when.lsp
View file @
468975ac
...
...
@@ -34,5 +34,6 @@
x))
a 1)
;;; (deftest when.error.1
;;; (classify-error (when))
;;; program-error)
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment