Use high-level interface of ASDF

dochang · Aug 14, 2017 · d88f2f2 · d88f2f2
1 parent 126a9e4
commit d88f2f2
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/README b/README
@@ -49,7 +49,7 @@ Tutorial
 --------
 
 ----------------------------------------------------------------------
-> (asdf:oos 'asdf:load-op :magicffi)
+> (asdf:load-system :magicffi)
 > (use-package :magicffi)
 > (with-open-magic (magic '(:mime-type :symlink))
     (magic-load magic)

diff --git a/magicffi.asd b/magicffi.asd
@@ -6,7 +6,7 @@
 (in-package :magicffi/asdf)
 
 (eval-when (:load-toplevel :execute)
-  (operate 'load-op :cffi-grovel))
+  (load-system :cffi-grovel))
 
 (defsystem :magicffi
   :description "cffi interface to libmagic(3)"
@@ -36,5 +36,5 @@
                              (:file :tests)))))
 
 (defmethod perform ((o test-op) (c (eql (find-system :magicffi))))
-  (operate 'load-op :magicffi/test)
+  (load-system :magicffi/test)
   (funcall (intern "RUN-TESTS" :magicffi/test)))
diff --git a/package.lisp b/package.lisp
@@ -3,7 +3,7 @@
 (defpackage :magicffi
   (:use :cl :cffi)
   (:documentation "Usage:
-> (asdf:oos 'asdf:load-op :magicffi)
+> (asdf:load-system :magicffi)
 > (use-package :magicffi)
 > (with-open-magic (magic '(:mime-type :symlink))
     (magic-load magic)