From 44947befbbe3cef262484c265903599109c4dad6 Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Thu, 1 Dec 2011 18:34:37 +0400 Subject: [PATCH] Fix clos.impure.lisp DOCUMENTATION test on #-sb-doc. Don't rely on docstrings being present on standard functions when testing DOCUMENTATION. --- tests/clos.impure.lisp | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp index a00da1d..cf876d9 100644 --- a/tests/clos.impure.lisp +++ b/tests/clos.impure.lisp @@ -356,10 +356,14 @@ ;;; DOCUMENTATION's argument-precedence-order wasn't being faithfully ;;; preserved through the bootstrap process until sbcl-0.7.8.39. ;;; (thanks to Gerd Moellmann) -(let ((answer (documentation '+ 'function))) - (assert (stringp answer)) - (defmethod documentation ((x (eql '+)) y) "WRONG") - (assert (string= (documentation '+ 'function) answer))) +(with-test (:name :documentation-argument-precedence-order) + (defun foo022 () + "Documentation" + t) + (let ((answer (documentation 'foo022 'function))) + (assert (stringp answer)) + (defmethod documentation ((x (eql 'foo022)) y) "WRONG") + (assert (string= (documentation 'foo022 'function) answer)))) ;;; only certain declarations are permitted in DEFGENERIC (macrolet ((assert-program-error (form) -- 1.7.10.4