[cello-cvs] CVS cello/cffi-extender

ktilton ktilton at common-lisp.net
Fri Feb 2 20:11:02 UTC 2007


Update of /project/cello/cvsroot/cello/cffi-extender
In directory clnet:/tmp/cvs-serv2070/cffi-extender

Modified Files:
	arrays.lisp callbacks.lisp cffi-extender.asd cffi-extender.lpr 
	definers.lisp 
Log Message:


--- /project/cello/cvsroot/cello/cffi-extender/arrays.lisp	2006/09/05 23:05:36	1.4
+++ /project/cello/cvsroot/cello/cffi-extender/arrays.lisp	2007/02/02 20:11:02	1.5
@@ -1,5 +1,5 @@
 ;;;
-;;; Copyright © 1995,2003 by Kenneth William Tilton.
+;;; Copyright (c) 1995,2003 by Kenneth William Tilton.
 ;;;
 ;;; Permission is hereby granted, free of charge, to any person obtaining a copy 
 ;;; of this software and associated documentation files (the "Software"), to deal 
@@ -112,9 +112,10 @@
                       (cons (fgn-type g)(fgn-ptr g))))))
     (if fgn
         (setf *gl-rsrc* (delete fgn *gl-rsrc*))
-      (format t "~&Freeing unknown GL resource ~a" (cons type resource)))
-    #+nonono (ecase type
-      (:texture (ogl:ogl-texture-delete resource)))))
+      (progn
+        ;(format t "~&ignoring unknown GL resource ~a" (cons type resource))
+        #+not (ecase type
+          (:texture (ogl:ogl-texture-delete resource)))))))
 
 (defmacro make-ff-array (type &rest values)
   (let ((fv (gensym))(n (gensym))(vs (gensym)))
@@ -179,6 +180,7 @@
   (setf (ff-elt v :unsigned-char n) value))
 
 (defun eltuc (v n)
+  (declare (fixnum n))
   (ff-elt v :unsigned-char n))
 
 (defun eltf (v n)
--- /project/cello/cvsroot/cello/cffi-extender/callbacks.lisp	2006/07/06 22:09:10	1.2
+++ /project/cello/cvsroot/cello/cffi-extender/callbacks.lisp	2007/02/02 20:11:02	1.3
@@ -1,5 +1,5 @@
 ;;;
-;;; Copyright © 1995,2003 by Kenneth William Tilton.
+;;; Copyright (c) 1995,2003 by Kenneth William Tilton.
 ;;;
 ;;; Permission is hereby granted, free of charge, to any person obtaining a copy 
 ;;; of this software and associated documentation files (the "Software"), to deal 
--- /project/cello/cvsroot/cello/cffi-extender/cffi-extender.asd	2006/06/04 00:09:53	1.1
+++ /project/cello/cvsroot/cello/cffi-extender/cffi-extender.asd	2007/02/02 20:11:02	1.2
@@ -12,10 +12,10 @@
   :licence "Lisp Lesser GNU Public License"
   :description "CFFI Add-ons"
   :long-description "Extensions and utilities for CFFI"
-  :depends-on (cffi cffi-uffi-compat)
+  :depends-on (cffi cffi-uffi-compat utils-kt)
   :serial t
   :components ((:file "cffi-extender")
                (:file "my-uffi-compat")
                (:file "definers")
                (:file "arrays")
-               (:file "callbacks")))
\ No newline at end of file
+               (:file "callbacks")))
--- /project/cello/cvsroot/cello/cffi-extender/cffi-extender.lpr	2006/11/13 05:29:27	1.7
+++ /project/cello/cvsroot/cello/cffi-extender/cffi-extender.lpr	2007/02/02 20:11:02	1.8
@@ -1,4 +1,4 @@
-;; -*- lisp-version: "8.0 [Windows] (Nov 6, 2006 16:43)"; cg: "1.81"; -*-
+;; -*- lisp-version: "8.0 [Windows] (Jan 22, 2007 8:01)"; cg: "1.81"; -*-
 
 (in-package :cg-user)
 
--- /project/cello/cvsroot/cello/cffi-extender/definers.lisp	2006/07/06 22:09:10	1.2
+++ /project/cello/cvsroot/cello/cffi-extender/definers.lisp	2007/02/02 20:11:02	1.3
@@ -1,5 +1,5 @@
 ;;;
-;;; Copyright © 1995,2003 by Kenneth William Tilton.
+;;; Copyright (c) 1995,2003 by Kenneth William Tilton.
 ;;;
 ;;; Permission is hereby granted, free of charge, to any person obtaining a copy 
 ;;; of this software and associated documentation files (the "Software"), to deal 




More information about the Cello-cvs mailing list