/[gcl]/gcl/cmpnew/gcl_cmpmain.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpmain.lsp

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

revision 1.32 by camm, Wed Aug 10 22:28:51 2005 UTC revision 1.33 by camm, Wed Sep 7 02:40:50 2005 UTC
# Line 438  Cannot compile ~a.~%" Line 438  Cannot compile ~a.~%"
438           ;; FIXME -- support warnings-p and failures-p.  CM 20041119           ;; FIXME -- support warnings-p and failures-p.  CM 20041119
439           (values name nil nil))           (values name nil nil))
440          ((and (setq tem (symbol-function name))          ((and (setq tem (symbol-function name))
441                (consp tem))                (or (consp tem) (when (typep tem 'interpreted-function) (setq tem (si::interpreted-function-lambda tem)))))
442           (let ((na (if (symbol-package name) name 'cmp-anon))           (let ((na (if (symbol-package name) name 'cmp-anon))
443                 (tem (if *keep-gaz* tem (wrap-literals tem))) warnings failures)                 (tem (if *keep-gaz* tem (wrap-literals tem))) warnings failures)
444             (unless (and (fboundp 'si::init-cmp-anon) (or (si::init-cmp-anon) (fmakunbound 'si::init-cmp-anon)))             (unless (and (fboundp 'si::init-cmp-anon) (or (si::init-cmp-anon) (fmakunbound 'si::init-cmp-anon)))
# Line 476  Cannot compile ~a.~%" Line 476  Cannot compile ~a.~%"
476           (setf (macro-function name) (macro-function name))           (setf (macro-function name) (macro-function name))
477           nil)           nil)
478          ((and (setq tem (symbol-function name))          ((and (setq tem (symbol-function name))
479                (consp tem)                (or (consp tem) (when (typep tem 'interpreted-function) (setq tem (si::interpreted-function-lambda tem))))
480                (eq (car tem) 'lambda-block))                (eq (car tem) 'lambda-block))
481           (let ((gaz (gazonk-name)))           (let ((gaz (gazonk-name)))
482             (with-open-file             (with-open-file
# Line 823  SYSTEM_SPECIAL_INIT Line 823  SYSTEM_SPECIAL_INIT
823        (return-from mysub str))        (return-from mysub str))
824      (let ((y (+ (length it) (the fixnum x))))      (let ((y (+ (length it) (the fixnum x))))
825        (declare (fixnum y))        (declare (fixnum y))
826        (concatenate (type-of str)        (concatenate (lisp::type-of str)
827                     (subseq str 0 x)                     (subseq str 0 x)
828                     new                     new
829                     (mysub (subseq str y) it new)))))                     (mysub (subseq str y) it new)))))

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

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