[Bese-devel] more patches and warnings

[Aleksandar Bakic]

Hi,

--- old-ucw_dev/src/rerl/standard-session-frame.lisp    2005-11-10
03:58:26.000000000 +0100
+++ new-ucw_dev/src/rerl/standard-session-frame.lisp    2005-11-10
12:12:50.000000000 +0100
@@ -46,7 +46,7 @@
        nil))

 (defun register-callback (callback)
-  (make-new-callback (context.current-frame *context*) callback))
+  (make-new-callback callback))

--- old-arnesi_dev/src/call-cc/apply.lisp       2005-11-10 04:00:44.000000000
+0100
+++ new-arnesi_dev/src/call-cc/apply.lisp       2005-11-10 12:36:39.000000000
+0100
@@ -157,7 +157,7 @@
 ;;;; environment and transfers control.

 (defmethod apply-lambda/cc ((operator closure/cc) effective-arguments dyn-env
k)
-  (trace-statement "Applying cc closure ~S to ~S" (source (code (first
arg-list))) (rest arg-list))
+  (trace-statement "Applying cc closure ~S to ~S" (source (code closure/cc))
effective-arguments)


(some file names below may be wrong; also, defaction might erroneously cause
method redefinition warnings)
; compiling file "ucw/src/yaclml/ucw-tags.lisp":
; ==>
;   (LOCALLY
;    (DECLARE (IGNORE IT.BESE.UCW::BODY))
;    (LET ((IT.BESE.UCW::READER (OR IT.BESE.UCW::READER IT.BESE.UCW::ACCESSOR))
;          (IT.BESE.UCW::WRITER (OR IT.BESE.UCW::WRITER #)))
;      `(IT.BESE.YACLML.TAGS:TEXTAREA :NAME
;                                     (IT.BESE.UCW::MAKE-NEW-CALLBACK
;                                      ,IT.BESE.UCW::WRITER)
;                                     , at IT.BESE.UCW::OTHERS
;                                     (IT.BESE.YACLML.TAGS:AS-HTML
;                                      ,IT.BESE.UCW::READER))))
;
; caught STYLE-WARNING:
;   declaring unknown variable BODY to be ignored


; compiling file "ucw/src/components/ie.lisp":
STYLE-WARNING: redefining %CONVERT-IE-DEFINITION-NAME in DEFUN
STYLE-WARNING: redefining %IE-CONSTRAINT-METHOD-NAME in DEFUN


; compiling file "ucw/src/components/form.lisp":
STYLE-WARNING: redefining OUTPUT-FORMAT (INTERFACE-ELEMENT) in DEFMETHOD
STYLE-WARNING: redefining DEFAULT-VALUE (INTERFACE-ELEMENT) in DEFMETHOD
STYLE-WARNING: redefining SUBMIT in DEFGENERIC


; compiling file "ucw/src/components/range-set.lisp":
; in: DEFGENERIC RANGE-CURSOR.DELETE-DATA-ITEM
;     (<= IT.BESE.UCW::INDEX (LENGTH IT.BESE.UCW::DATA))
; --> IF >
; ==>
;   IT.BESE.UCW::INDEX
;
; caught STYLE-WARNING:
;   reading an ignored variable: INDEX


; compiling file "ucw/src/components/presentations.lisp":
; compiling (DEFSLOT-CRITERA DATE-BEFORE-CRITERIA ...);
; caught STYLE-WARNING:
;   Too many arguments (1) to FORMAT "Date Before:": uses at most 0.


; file: ucw/src/control.lisp
; in: DEFMETHOD IT.BESE.UCW::MAKE-BACKEND ((EQL :ARANEIDA)) =>
IT.BESE.UCW::DEFAULT-URL IT.BESE.UCW::ARANEIDA-SERVER
;     (IT.BESE.UCW::DEFAULT-URL IT.BESE.UCW::ARANEIDA-SERVER)
;
; caught STYLE-WARNING:
;   undefined function: IT.BESE.UCW::DEFAULT-URL


; file: ucw/src/rerl/standard-server.lisp
; in:
;      DEFMETHOD IT.BESE.UCW::REGISTER-ENTRY-POINT (IT.BESE.UCW:STANDARD-SERVER
;                                               IT.BESE.UCW::ENTRY-POINT)
;     (IT.BESE.UCW::REGISTER-URL-HANDLER
;    (IT.BESE.UCW:SERVER.BACKEND IT.BESE.UCW::SERVER)
;    IT.BESE.UCW::ENTRY-POINT
;    (LAMBDA (IT.BESE.UCW:REQUEST IT.BESE.UCW:RESPONSE)
;      (IT.BESE.UCW::HANDLE-REQUEST IT.BESE.UCW::SERVER
;                                   IT.BESE.UCW:REQUEST
;                                   IT.BESE.UCW:RESPONSE)))
;
; caught STYLE-WARNING:
;   undefined function: IT.BESE.UCW::REGISTER-URL-HANDLER

Alex


	
		
__________________________________ 
Yahoo! Mail - PC Magazine Editors' Choice 2005 
http://mail.yahoo.com