[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug in lisp 4.0 beta
- To: snicoud@atc
- Subject: bug in lisp 4.0 beta
- From: Felix Ingrand <felix@Warbucks.AI.SRI>
- Date: Wed, 8 Aug 90 19:09 PDT
- Cc: express-windows@atc, lisp-4-0@sun, bhart@sun
- In-reply-to: <19900806163743.2.SLN@SKAGIT.atc.boeing.com>
- Organization: SRI International, Menlo Park, CA
- Phone: (415) 859 5584
I managed to narrow the problem to the following function: streamp
(in-package :user)
(defpackage ew (:shadow lisp:streamp))
(in-package :ew)
(defun streamp (object)
(or (lisp:typep object 'window)
(lisp-streamp object)))
(defun setup-lisp-functions (&OPTIONAL (functions '(lisp:streamp)))
(dolist (function functions)
(let ((local-name (intern (concatenate 'STRING "LISP-" (symbol-name function)) (find-package "EW")))
(new-function (intern (symbol-name function) (find-package "EW")))
(cl-function function))
(unless (fboundp local-name)
(setf (symbol-function local-name) (symbol-function cl-function)))
(when (fboundp new-function)
(setf (symbol-function cl-function) (symbol-function new-function))))))
If you then do:
(ew::setup-lisp-functions)
You get:
Nasty recursive error in debugger.
Expanding main stack due to overflow...
Expanded. Please be patient--it will take a
few minutes to build debugger data structures.
Expanding main stack due to overflow...
Felix