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))