;; 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: glib.lisp,v 1.16 2004/11/06 21:39:58 espen Exp $
+;; $Id: glib.lisp,v 1.18 2004/11/07 16:03:55 espen Exp $
(in-package "GLIB")
(remhash id *user-data*))
-
;;;; Quarks
(internal *quark-counter* *quark-from-object* *quark-to-object*)
`(make-glist ',element-type ,list)))
(defmethod to-alien-function ((type (eql 'glist)) &rest args)
- (declare (ignore type args))
+ (declare (ignore type))
(destructuring-bind (element-type) args
#'(lambda (list)
(make-glist element-type list))))
`(make-sglist ',element-type ,list)))
(defmethod to-alien-function ((type (eql 'gslist)) &rest args)
- (declare (ignore type args))
+ (declare (ignore type))
(destructuring-bind (element-type) args
#'(lambda (list)
(make-gslist element-type list))))