19 Feb
2004
19 Feb
'04
5:57 a.m.
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))