Monorepo for Aesthetic.Computer aesthetic.computer
at main 11 lines 356 B view raw
1;;; Quick test: load the system and report errors 2(load "/opt/quicklisp/setup.lisp") 3(require :asdf) 4(push #P"/repo/fedac/native/cl/" asdf:*central-registry*) 5(handler-case 6 (progn 7 (asdf:load-system :ac-native) 8 (format t "~&=== SYSTEM LOADED OK ===~%")) 9 (error (e) 10 (format t "~&=== LOAD ERROR ===~%~A~%" e) 11 (sb-ext:exit :code 1)))