[climacs-devel] a trivial command for loading ASDF systems

[Samium Gromoff]

This snippet implements some obvious functionality.

--- misc-commands.lisp	12 Nov 2006 16:06:06 -0000	1.26
+++ misc-commands.lisp	9 Apr 2007 13:34:23 -0000
@@ -79,6 +79,15 @@
    Setting a syntax will cause the buffer to be reparsed using the new syntax."
   (set-syntax *current-buffer* syntax))
 
+(define-command (com-load-asdf-system :name t :command-table base-table) 
+    ((system 'symbol
+      :prompt "Name of the ASDF system"))
+  "Prompts for a name of an ASDF system to be loaded."
+  (handler-case
+      (asdf:oos 'asdf:load-op system)
+    (asdf:missing-component ()
+      (display-message "The ASDF system ~A was not found." system))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; 
 ;;; Groups


regards, Samium Gromoff