share/colnew/load-colnew.lisp

   1 #+nil
   2 (format t "colnew.system = ~S~%" (merge-pathnames (make-pathname :name "colnew" :type "system")
   3                                                   #-gcl *load-pathname*
   4                                                   #+gcl sys:*load-pathname*))
   5 (load (merge-pathnames (make-pathname :name "colnew" :type "system")
   6                        #-gcl *load-pathname*
   7                        #+gcl sys:*load-pathname*))
   8
   9 (mk:oos "colnew-if" :compile)