File: function-lambda-expression.lsp

package info (click to toggle)
gcl 2.6.14-19
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 60,804 kB
  • sloc: ansic: 177,407; lisp: 151,508; asm: 128,169; sh: 22,510; cpp: 11,923; tcl: 3,181; perl: 2,930; makefile: 2,360; sed: 334; yacc: 226; lex: 95; awk: 30; fortran: 24; csh: 23
file content (42 lines) | stat: -rw-r--r-- 889 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Mon Jan 13 16:27:12 2003
;;;; Contains: Tests for FUNCTION-LAMBDA-EXPRESSION

(in-package :cl-test)

(deftest function-lambda-expression.1
  (length
   (multiple-value-list
    (function-lambda-expression #'cons)))
  3)

(deftest function-lambda-expression.2
  (let ((x nil))
    (flet ((%f () x))
      (let ((ret-vals
	     (multiple-value-list
	      (function-lambda-expression #'%f))))
	(values (length ret-vals)
		(notnot (second ret-vals))))))
  3 t)

(deftest function-lambda-expression.order.1
  (let ((i 0))
    (function-lambda-expression (progn (incf i) #'cons))
    i)
  1)

(deftest function-lambda-expression.error.1
  (classify-error (function-lambda-expression))
  program-error)

(deftest function-lambda-expression.error.2
  (classify-error (function-lambda-expression #'cons nil))
  program-error)