;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-;; $Id: gparam.lisp,v 1.10 2004/11/12 15:01:42 espen Exp $
+;; $Id: gparam.lisp,v 1.12 2004/12/16 23:21:18 espen Exp $
(in-package "GLIB")
(when value-p
(funcall (writer-function type) value gvalue +gvalue-value-offset+)))
-(defun gvalue-new (type &optional (value nil value-p))
+(defun gvalue-new (&optional type (value nil value-p))
(let ((gvalue (allocate-memory +gvalue-size+)))
- (if value-p
- (gvalue-init gvalue type value)
- (gvalue-init gvalue type))
+ (cond
+ (value-p (gvalue-init gvalue type value))
+ (type (gvalue-init gvalue type)))
gvalue))
(defun gvalue-free (gvalue &optional (unset-p t))
(defmacro with-gvalue ((gvalue type &optional (value nil value-p)) &body body)
`(let ((,gvalue ,(if value-p
- `(gvalue-new ',type ,value)
- `(gvalue-new ',type ,value))))
+ `(gvalue-new ,type ,value)
+ `(gvalue-new))))
(unwind-protect
(progn
,@body
:allocation :virtual
:getter "g_param_spec_get_nick"
:reader param-nickname
- :type string)
+ :type (copy-of string))
(documentation
:allocation :virtual
:getter "g_param_spec_get_blurb"
:reader param-documentation
- :type string))
+ :type (copy-of string)))
(:metaclass param-spec-class))