[gsharp-cvs] CVS update: gsharp/sdl.lisp

[Robert Strandh]

Update of /project/gsharp/cvsroot/gsharp
In directory common-lisp.net:/tmp/cvs-serv21441

Modified Files:
	sdl.lisp 
Log Message:
Fixed the :relative problem according to Andras Simon.

Date: Thu Feb 19 00:57:22 2004
Author: rstrandh

Index: gsharp/sdl.lisp
diff -u gsharp/sdl.lisp:1.2 gsharp/sdl.lisp:1.3
--- gsharp/sdl.lisp:1.2	Mon Feb 16 13:50:20 2004
+++ gsharp/sdl.lisp	Thu Feb 19 00:57:22 2004
@@ -1,7 +1,7 @@
 (in-package :sdl)
 
 (defvar *fonts-directory*
-  (merge-pathnames (make-pathname :directory '(relative "Fonts"))
+  (merge-pathnames (make-pathname :directory '(:relative "Fonts"))
 		   (make-pathname :directory (pathname-directory *load-truename*))))
 
 (defgeneric glyph (font glyph-no))