Skip to content
Snippets Groups Projects
Commit fcb80285 authored by pw's avatar pw
Browse files

From Fred Gilham:

Remove some walker-template forms that are not correct for cmucl.
parent 661411a6
No related branches found
No related tags found
No related merge requests found
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/walk.lisp,v 1.20 2000/11/16 15:47:40 pw Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/walk.lisp,v 1.21 2001/05/05 23:34:47 pw Exp $")
;;; ;;;
;;; A simple code walker, based IN PART on: (roll the credits) ;;; A simple code walker, based IN PART on: (roll the credits)
;;; Larry Masinter's Masterscope ;;; Larry Masinter's Masterscope
...@@ -452,12 +452,13 @@ ...@@ -452,12 +452,13 @@
;;; ;;;
;;; And the extra templates... ;;; And the extra templates...
;;; ;;;
#|| These are macros in CMUCL
(define-walker-template DO walk-do) (define-walker-template DO walk-do)
(define-walker-template DO* walk-do*) (define-walker-template DO* walk-do*)
(define-walker-template PROG walk-prog) (define-walker-template PROG walk-prog)
(define-walker-template PROG* walk-prog*) (define-walker-template PROG* walk-prog*)
(define-walker-template COND (NIL REPEAT ((TEST REPEAT (EVAL))))) (define-walker-template COND (NIL REPEAT ((TEST REPEAT (EVAL)))))
||#
(defvar walk-form-expand-macros-p nil) (defvar walk-form-expand-macros-p nil)
......
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