[pal-cvs] CVS pal/examples

[tneste]

Update of /project/pal/cvsroot/pal/examples
In directory clnet:/tmp/cvs-serv22662/examples

Modified Files:
	teddy.lisp 
Log Message:
More gl-begin optimisations, ALIGN keywords currently broken.

--- /project/pal/cvsroot/pal/examples/teddy.lisp	2007/07/29 19:11:44	1.6
+++ /project/pal/cvsroot/pal/examples/teddy.lisp	2007/07/29 21:55:23	1.7
@@ -80,7 +80,7 @@
 
 
 (defun example ()
-  (with-pal (:fullscreenp nil :width 800 :height 600 :fullscreenp nil :fps 60 :paths (merge-pathnames "examples/" pal::*pal-directory*))
+  (with-pal (:fullscreenp nil :width 800 :height 600 :fps 60 :paths (merge-pathnames "examples/" pal::*pal-directory*))
     ;; inits PAL, the args used are the default values.
     ;; PATHS is a pathname or list of pathnames that PAL uses to find the resource files loaded with LOAD-* functions.
     ;; By default PATHS contains the PAL source directory and value of *default-pathname-defaults*