From billpeople at mindspring.com  Fri Jun 10 21:35:47 2011
From: billpeople at mindspring.com (Richard and/or Dorrit)
Date: Fri, 10 Jun 2011 14:35:47 -0700 (GMT-07:00)
Subject: [mcclim-devel] BUG in RECORDING.LISP > DEFINE-INVOKE-WITH
Message-ID: <6141787.1307741747753.JavaMail.root@elwamui-polski.atl.sa.earthlink.net>

When compiling with SBCL 1.0.49, discovered the dynamic-extent declaration at the end of this has two typos, where the dynamic extent is declared for #'continuation and #'constructor, rather than for the gensym'd names for them. So the second version of this code is with this issue fixed.

(defmacro define-invoke-with (macro-name func-name record-type doc-string)
  `(defmacro ,macro-name ((stream
			   &optional
			   (record-type '',record-type)
			   (record (gensym))
			   &rest initargs)
			  &body body)
     ,doc-string
     (setq stream (stream-designator-symbol stream '*standard-output*))
     (with-gensyms (constructor continuation)
       (multiple-value-bind (bindings m-i-args)
	   (rebind-arguments initargs)
	 `(let ,bindings
	    (flet ((,constructor ()
		     (make-instance ,record-type , at m-i-args))
		   (,continuation (,stream ,record)
		     ,(declare-ignorable-form* stream record)
		     , at body))
	      (declare (dynamic-extent #'constructor #'continuation))
	      (,',func-name ,stream #',continuation ,record-type #',constructor
			    , at m-i-args)))))))

;;; here's the versioned with the repaired dynamic-extent declaration:

(defmacro define-invoke-with (macro-name func-name record-type doc-string)
  `(defmacro ,macro-name ((stream
			   &optional
			   (record-type '',record-type)
			   (record (gensym))
			   &rest initargs)
			  &body body)
     ,doc-string
     (setq stream (stream-designator-symbol stream '*standard-output*))
     (with-gensyms (constructor continuation)
       (multiple-value-bind (bindings m-i-args)
	   (rebind-arguments initargs)
	 `(let ,bindings
	    (flet ((,constructor ()
		     (make-instance ,record-type , at m-i-args))
		   (,continuation (,stream ,record)
		     ,(declare-ignorable-form* stream record)
		     , at body))
	      (declare (dynamic-extent #',constructor #',continuation))
	      (,',func-name ,stream #',continuation ,record-type #',constructor
			    , at m-i-args)))))))





From pbowyer at olynet.com  Thu Jun 16 01:01:09 2011
From: pbowyer at olynet.com (Paul Bowyer)
Date: Wed, 15 Jun 2011 18:01:09 -0700
Subject: [mcclim-devel] mcclim dialogs
Message-ID: <4DF955D5.7070108@olynet.com>

Hello mcclim developers:

I'm in the throws of learning common lisp and mcclim and I've been able 
to piece together some working code that functions fairly well by 
reading from various mcclim specification documents, brief tutorials, 
and by looking at the various examples that come with mcclim.

I have a question regarding the proper way to set up a simple dialog for 
entering values using mcclim.

I've tried using the "accepting-values" macro directly, but I haven't 
been able to control the position or the size of the dialog when it 
appears, although I do get usable information from it. From reading the 
specifications, I've tried using the various position control 
parameters, but they seem to have no affect.

I've tried defining an application frame with a pane derived from 
"accept-values" but I haven't been successful getting that to run.

Does someone have a simple example of either, or both, of these methods 
of setting up a dialog with mcclim that they would be willing to share?

I'm using SBCL-1.0.48 with slime, if that has any importance.

Thanks,

Paul