Now one can load and compile directly without setting `*ops-code-dire…

…ctory*' at first.

ops.lisp

@@ -43,18 +43,18 @@
 ;;; Source Directory ***************
 ;;; ********************************
 
-(defparameter *ops-code-directory* ""
+(defparameter *ops-code-directory* *load-pathname*
   "Directory where OPS5 source code is stored.")
 
 (defun ops-pathname (filename)
-  (concatenate 'string *ops-code-directory* filename))
+  (make-pathname :name filename :type nil :defaults *ops-code-directory*))
 
 (defun load-ops-file (filename)
   (load (ops-pathname filename)))
 
 (defun compile-load (filename)
   (let ((pname (ops-pathname filename)))
-    (compile-file (concatenate 'string pname ".lisp"))
+    (compile-file (make-pathname :type "lisp" :defaults pname))
     (load pname)))
 
 ;;; ********************************