Custom Query (1030 matches)

When using user-defined format functions and ~:*, CCL fails to interpret the format string correctly:

(defun cl-user::x (stream value a b)
  (declare (ignore a b))
  (format stream "[~A]" value))

(defun x ()
  (format nil "~/X/~:*~/X/" 1))

yields, while compiling:

;   In X: Target position for ~* out of bounds in format string:
;   "~:*~/X/~%"
;      ^

and generates a runtime error.

Ethan H. Schwartz 2009-08-03 11:09:54 EDT

The CLHS says: Universal time is an absolute time represented as a single non-negative integer---the number of seconds since midnight, January 1, 1900 GMT [...] Because universal time must be a non-negative integer, times before the base time of midnight, January 1, 1900 GMT cannot be processed by Common Lisp.

​http://www.lispworks.com/documentation/HyperSpec/Body/25_adb.htm

? (ENCODE-UNIVERSAL-TIME 0 0 19 31 12 1899) 0 ? (ENCODE-UNIVERSAL-TIME 59 59 18 31 12 1899) -1

The right thing to do would probably be to signal a type error.

Mark Nahabedian 2010-05-24 09:33:02 EDT

There are a variety of cases where CCL signals nothing more specific than SIMPLE-ERROR. It would be helpful if appropriate conditions were defined for each of these cases and those conditions were signaled.

Here's an example of a case of SIMPLE-ERROR that should be something like NO-APPLICABLE-METHOD-ERROR instead:

There is no applicable method for the generic function:
  #<STANDARD-GENERIC-FUNCTION QRES-CORE:DO-LOAD-DB-RECORD-FROM-QAPI-OBJECT
#x3000434D4C2F>
when called with arguments:
  (QRES-CORE:QAPI-PNR-SEGMENT NIL :PARENTS (#<QAPI-PNR #<LEGACY-PNR
12474990031128/M/0 AC:PZCCLE,AC:PZCCLE #x300062B32F8D> :CHANGE-TOKEN: NIL>))

NB: Was ITA bug 80692