In som test: using relative pathname and a string as directory

[Yehouda]

in som/examples/test.lisp, test:

1. The argument filename default to a relative pathname, which works only if the current directory happens to be the right one. It needs to use asdf:system-relative-pathname to make sure it always gets it.

2. The last argument to do-som-by-filename is a string, that ends being passed to make-pathname as the directory argumnet. But when make-pathname gets a string as a directoyr, it must be a top level directory, so it gets an error. It needs to pass a proper directory, for example (pathname-directory (asdf/system:system-relative-pathname "clml.som" "examples/")).

I change the definiton of test as below, and then it ran without a problem:

(defun test (&key (filename (asdf/system:system-relative-pathname "clml.som" "examples/animal.dat"))) (declare (optimize (speed 3))) (do-som-by-filename filename "hexa" "gaussian" 24 ;; x size of map 16 ;; y size of map 123 ;; random seed 10000 ;; total length of study 5 ;; alpha x 100 2400 ;; radius x 100 10 (pathname-directory (asdf/system:system-relative-pathname "clml.som" "examples/"))))