Custom Query (1030 matches)

I'm not sure it's desirable to warn about JUNK being unused in the :around method below.

(defclass foo ()
  ())

(defmethod do-nothing ((f foo) junk)
  (or junk 42))

(defmethod do-nothing :around ((f foo) junk)
  (format t "~&hi")
  (format t "~&~s" (call-next-method))
  (format t "~&bye"))

;Compiler warnings :
;   In (DO-NOTHING :AROUND (FOO T)) inside an anonymous lambda form: Unused lexical variable JUNK

Doing a full rebuild of the x86/32 port revision 11602, I get this:

;Compiler warnings for "/home/hechee/Software/opt/ccl/lib/nfcomp.lisp" :
;   In %COMPILE-FILE: In the call to REPORT-DEFERRED-WARNINGS with arguments (*COMPILE-FILE-PATHNAME*),
;     1 argument were provided, but at most 0 are accepted
;     by the current global definition of REPORT-DEFERRED-WARNINGS

(from openmcl-devel)

the attached patch makes the ccl shell script look at $0, resolve symlinks if there are any, and tries to use this path as CCL_DEFAULT_DIRECTORY.

This lets user simply symlink scripts/ccl to ~/bin.

Also it makes it possible to conveniently have multiple ccl installation coexist; the user symlinks "ccl-1.2", "ccl-svn" &c to the appropriate directories.