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

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

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

revision 1.5 by pfdietz, Sat Jan 8 16:17:43 2005 UTC revision 1.6 by pfdietz, Sun May 22 01:04:21 2005 UTC
# Line 273  Line 273 
273        ((lambda (&aux (y x)) (declare (special x)) y))))        ((lambda (&aux (y x)) (declare (special x)) y))))
274    :good)    :good)
275    
276    (deftest lambda.55
277      (let* ((doc "LMB55")
278             (fn (eval `#'(lambda () ,doc nil)))
279             (cfn (compile nil fn)))
280        (values
281         (or (documentation fn t) doc)
282         (or (documentation cfn t) doc)))
283      "LMB55"
284      "LMB55")
285    
286    (deftest lambda.56
287      (let* ((doc "LMB56")
288             (fn (eval `#'(lambda () ,doc nil)))
289             (cfn (compile nil fn)))
290        (values
291         (or (documentation fn 'function) doc)
292         (or (documentation cfn 'function) doc)))
293      "LMB56"
294      "LMB56")
295    
296  ;;; Tests of lambda as a macro  ;;; Tests of lambda as a macro
297    
298  (deftest lambda.macro.1  (deftest lambda.macro.1
# Line 283  Line 303 
303    (funcall (eval (macroexpand '(lambda () 10))))    (funcall (eval (macroexpand '(lambda () 10))))
304    10)    10)
305    
306    ;;; Error tests
307    
308  (deftest lambda.error.1  (deftest lambda.error.1
309    (signals-error (funcall (macro-function 'lambda))    (signals-error (funcall (macro-function 'lambda))
310                   program-error)                   program-error)

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

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