Commit 468975ac authored by pfdietz's avatar pfdietz

Retracted builtin macro error tests pending clarification of the ANSI CL spec.

parent d8f2ca18
......@@ -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)
......@@ -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
;-*- 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)
|#
......@@ -44,7 +44,6 @@
x))
a 1)
;;; (deftest unless.error.1
;;; (classify-error (unless))
;;; program-error)
......@@ -34,5 +34,6 @@
x))
a 1)
;;; (deftest when.error.1
;;; (classify-error (when))
;;; program-error)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment