hello again;
i would like ask advice about how to get along with the cmucl compiler.
sometimes the messages point out an oversight, sometimes i agree with
them, but have no idea how to remedy th esituation, and sometimes
they're just plain cryptic. any suggestions as to actual cause and/or
mitigating declarations are welcome.
1. In: DEFGENERIC CONSTRUCT-ELEMENT-NODE
(MAKE-INSTANCE (NODE-CLASS TYPE) :NAME NAME :DEF ...)
Warning: :NAME is not a known argument keyword.
Warning: :DEF is not a known argument keyword.
Warning: :DOCUMENT is not a known argument keyword.
how is it inferring the "known argument keyword" domain? in general, it
appears as if a message of this sort arises for all computed classes.
2. (XML-ERROR "unknown tokenized type: ~s." TOKENIZED-TYPE)
Warning: Function has an odd number of arguments in the keyword portion.
� (XML-ERROR "unknown tokenized type: ~s." TOKENIZED-TYPE)
Warning: Function has an odd number of arguments in the keyword portion.
the function is defined as
(defgeneric xml-error (condition &rest args) ...) with
specializations for an initial symbol, instance, class, and string.
3. In: DEFGENERIC PATHNAME-FILE-URL
(= (LENGTH HOST) 1)
Note: Deleting unreachable code.
(ALPHA-CHAR-P (CHAR HOST 0))
Note: Deleting unreachable code.
Note: Deleting unused function
ALPHA-CHAR-P
(SETF DEVICE HOST)
--> SETQ
==>
HOST
Note: Deleting unreachable code.
? does pathname-host not sometimes return a string?
(:method ((pathname pathname))
(let ((device (pathname-device pathname))
(host (pathname-host pathname)))
;; in a physical pathname, a single letter host is a
device for lispworks
(when (eq device :unspecific) (setf device nil))
(when (and (null device)
(stringp host) (= (length host) 1)
(alpha-char-p (char host 0)))
(setf device host))
(pathname-file-url (format nil
"file://[EMAIL PROTECTED]/~{~a/[EMAIL PROTECTED]"
(when device (concatenate
'string device ":"))
(rest (pathname-directory
pathname))
(pathname-name pathname)
(pathname-type pathname)))))
...
