🚀 go-pugleaf

In <marco.676653088@ipvvis> marco@ipvvis.unipv.it (Marco Ramoni) writes:

Marco> (defmethod format ((tw text-window) string &rest arguments)
Marco>   "Specialized format for text-windows."
Marco>   (print-string-in-window tw (eval `(format nil ,string ,@arguments)))
Marco>   )
   [Produces error under Lucid]
Marco>  [...] can I "Convert the current definition into default method
Marco> directly from my program?"

What you can try is this (probably not portable Common Lisp, but
should work in most implementations):

	(defvar old-format #'format)
	(defmethod new-format (stream format-string &rest args)
	  (apply old-format stream format-string args))
	(defmethod new-format ((tw text-window) string &rest args)
	  ...)
	(setf (symbol-function 'format) #'new-format)

In article <1991Jun11.182622.3303@aplcen.apl.jhu.edu>
hall@aplcen.apl.jhu.edu (Marty Hall) writes:

Marty> Also, as a minor suggestion, try "apply", since "eval" is so
Marty> expensive:
Marty>
Marty> (apply #'format nil string arguments) instead of your "eval" form.

This is a good idea.  Also, the EVAL version has the problem that the
arguments are evaluated *twice*.

Marty> (setf (need-p 'disclaimer) NIL)

(defmethod needp ((who me) (ignore (eql 'disclaimer)))
  (declare (ignore ignore)) nil)
-- 
Simon.