Skip to content
Snippets Groups Projects
Commit a7cf6186 authored by gerd's avatar gerd
Browse files

* src/pcl/rt/inline-access.lisp (auto-compile-declaration.2): Use

	declaration identifiers from EXT.
parent 2376d277
No related branches found
No related tags found
No related merge requests found
...@@ -28,7 +28,7 @@ ...@@ -28,7 +28,7 @@
;;; DAMAGE. ;;; DAMAGE.
#+cmu #+cmu
(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/rt/inline-access.lisp,v 1.2 2003/03/22 16:15:14 gerd Exp $") (ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/rt/inline-access.lisp,v 1.3 2003/05/20 20:21:26 gerd Rel $")
(in-package "PCL-TEST") (in-package "PCL-TEST")
...@@ -49,73 +49,73 @@ ...@@ -49,73 +49,73 @@
,@values)) ,@values))
(define-declaration-test slot-declaration.0 (define-declaration-test slot-declaration.0
(declare (pcl:slots (slot-boundp xx))) (declare (ext:slots (slot-boundp xx)))
(pcl::slot-declaration env 'slot-boundp 'xx) (pcl::slot-declaration env 'slot-boundp 'xx)
:values ((t))) :values ((t)))
(define-declaration-test slot-declaration.1 (define-declaration-test slot-declaration.1
(declare (pcl:slots (inline xx))) (declare (ext:slots (inline xx)))
(pcl::slot-declaration env 'inline 'xx) (pcl::slot-declaration env 'inline 'xx)
:values ((t))) :values ((t)))
(define-declaration-test slot-declaration.2 (define-declaration-test slot-declaration.2
(declare (pcl:slots (inline (xx)))) (declare (ext:slots (inline (xx))))
(pcl::slot-declaration env 'inline 'xx) (pcl::slot-declaration env 'inline 'xx)
:values ((t))) :values ((t)))
(define-declaration-test slot-declaration.3 (define-declaration-test slot-declaration.3
(declare (pcl:slots (inline (xx a)))) (declare (ext:slots (inline (xx a))))
(pcl::slot-declaration env 'inline 'xx 'a) (pcl::slot-declaration env 'inline 'xx 'a)
:values ((t))) :values ((t)))
(define-declaration-test slot-declaration.4 (define-declaration-test slot-declaration.4
(declare (pcl:slots (inline (xx a)))) (declare (ext:slots (inline (xx a))))
(pcl::slot-declaration env 'inline 'xx 'b) (pcl::slot-declaration env 'inline 'xx 'b)
:values ((nil))) :values ((nil)))
(define-declaration-test slot-declaration.5 (define-declaration-test slot-declaration.5
(declare (pcl:slots (inline (xx a) yy))) (declare (ext:slots (inline (xx a) yy)))
(pcl::slot-declaration env 'inline 'yy) (pcl::slot-declaration env 'inline 'yy)
:values ((t))) :values ((t)))
(define-declaration-test slot-declaration.6 (define-declaration-test slot-declaration.6
(declare (pcl:slots (inline (xx a) (yy a)))) (declare (ext:slots (inline (xx a) (yy a))))
(pcl::slot-declaration env 'inline 'yy 'a) (pcl::slot-declaration env 'inline 'yy 'a)
:values ((t))) :values ((t)))
(define-declaration-test slot-declaration.7 (define-declaration-test slot-declaration.7
(declare (pcl:slots (inline (xx a) (yy a)))) (declare (ext:slots (inline (xx a) (yy a))))
(pcl::slot-declaration env 'inline 'yy 'b) (pcl::slot-declaration env 'inline 'yy 'b)
:values ((nil))) :values ((nil)))
(deftest global-slot-declaration.0 (deftest global-slot-declaration.0
(progn (progn
(proclaim '(pcl:slots (slot-boundp gsd))) (proclaim '(ext:slots (slot-boundp gsd)))
(not (null (pcl::slot-declaration nil 'slot-boundp 'gsd)))) (not (null (pcl::slot-declaration nil 'slot-boundp 'gsd))))
t) t)
(deftest global-slot-declaration.1 (deftest global-slot-declaration.1
(progn (progn
(proclaim '(pcl:slots (inline (gsd gsd-a)))) (proclaim '(ext:slots (inline (gsd gsd-a))))
(not (null (pcl::slot-declaration nil 'inline 'gsd 'gsd-a)))) (not (null (pcl::slot-declaration nil 'inline 'gsd 'gsd-a))))
t) t)
(deftest auto-compile-declaration.0 (deftest auto-compile-declaration.0
(progn (progn
(proclaim '(pcl:auto-compile acd)) (proclaim '(ext:auto-compile acd))
(pcl::auto-compile-p 'acd nil nil)) (pcl::auto-compile-p 'acd nil nil))
t) t)
(deftest auto-compile-declaration.1 (deftest auto-compile-declaration.1
(progn (progn
(proclaim '(pcl:auto-compile acd)) (proclaim '(ext:auto-compile acd))
(pcl::auto-compile-p 'acd '(:around) '(t t))) (pcl::auto-compile-p 'acd '(:around) '(t t)))
t) t)
(deftest auto-compile-declaration.2 (deftest auto-compile-declaration.2
(progn (progn
(proclaim '(pcl:not-auto-compile acd)) (proclaim '(ext:not-auto-compile acd))
(proclaim '(pcl:auto-compile (acd :around (t t)))) (proclaim '(ext:auto-compile (acd :around (t t))))
(values (pcl::auto-compile-p 'acd nil nil) (values (pcl::auto-compile-p 'acd nil nil)
(pcl::auto-compile-p 'acd nil '(t t)) (pcl::auto-compile-p 'acd nil '(t t))
(pcl::auto-compile-p 'acd '(:around) '(t t)))) (pcl::auto-compile-p 'acd '(:around) '(t t))))
...@@ -123,8 +123,8 @@ ...@@ -123,8 +123,8 @@
(deftest auto-compile-declaration.3 (deftest auto-compile-declaration.3
(progn (progn
(proclaim '(pcl:auto-compile acd)) (proclaim '(ext:auto-compile acd))
(proclaim '(pcl:not-auto-compile (acd :around (t t)))) (proclaim '(ext:not-auto-compile (acd :around (t t))))
(values (pcl::auto-compile-p 'acd nil nil) (values (pcl::auto-compile-p 'acd nil nil)
(pcl::auto-compile-p 'acd nil '(t t)) (pcl::auto-compile-p 'acd nil '(t t))
(pcl::auto-compile-p 'acd '(:around) '(t t)))) (pcl::auto-compile-p 'acd '(:around) '(t t))))
...@@ -132,8 +132,8 @@ ...@@ -132,8 +132,8 @@
(deftest auto-compile-declaration.4 (deftest auto-compile-declaration.4
(progn (progn
(proclaim '(pcl:auto-compile)) (proclaim '(ext:auto-compile))
(proclaim '(pcl:not-auto-compile acd)) (proclaim '(ext:not-auto-compile acd))
(values (pcl::auto-compile-p 'foo nil nil) (values (pcl::auto-compile-p 'foo nil nil)
(pcl::auto-compile-p 'acd nil '(t t)) (pcl::auto-compile-p 'acd nil '(t t))
(pcl::auto-compile-p 'acd '(:around) '(t t)))) (pcl::auto-compile-p 'acd '(:around) '(t t))))
...@@ -141,12 +141,12 @@ ...@@ -141,12 +141,12 @@
(deftest auto-compile-declaration.5 (deftest auto-compile-declaration.5
(progn (progn
(proclaim '(pcl:auto-compile (setf acd))) (proclaim '(ext:auto-compile (setf acd)))
(pcl::auto-compile-p '(setf acd) '(:around) '(t t))) (pcl::auto-compile-p '(setf acd) '(:around) '(t t)))
t) t)
(declaim (pcl:slots (inline sacc.0))) (declaim (ext:slots (inline sacc.0)))
(defclass sacc.0 () (defclass sacc.0 ()
((a :initform 0 :initarg :a :accessor sacc.0-a))) ((a :initform 0 :initarg :a :accessor sacc.0-a)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment