[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]



(DEFUN FOO-SFA (SELF OP DATA)
  (CASEQ OP (WHICH-OPERATIONS '(CHARPOS TYO))
	 (T (FORMAT T '|~&Operation = ~S, Data = ~S~&| OP DATA)
	    0)))		   ;need to return a fixnum

(CHARPOS FOO)
Operation = CHARPOS, DATA = #SFA-|FOO|-234153

Barf.  It should probably pass in NIL as the third argument if there's no
second argument to the CHARPOS.

Also, if you don't return a fixnum, it complains about "Wrong type argument".
This is clearly the wrong error message from the user's point of view.
Probably something like "Illegal return value" would make more sense.