From 5430fe44f095d1cd159a4a4d91d54ec31cad7878 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Thu, 13 Mar 2014 23:41:20 -0400
Subject: [PATCH] Remove the ill-fated BUILD-SYSTEM. Use BUILD.

---
 interface.lisp | 2 +-
 operate.lisp   | 6 +-----
 2 files changed, 2 insertions(+), 6 deletions(-)

diff --git a/interface.lisp b/interface.lisp
index 98078a6a..8767a55c 100644
--- a/interface.lisp
+++ b/interface.lisp
@@ -27,7 +27,7 @@
    #:operation #:make-operation #:find-operation
    #:upward-operation #:downward-operation #:sideway-operation #:selfward-operation
                       #:non-propagating-operation
-   #:build-op #:build #:build-system
+   #:build-op #:build
    #:load-op #:prepare-op #:compile-op
    #:prepare-source-op #:load-source-op #:test-op
    #:feature #:version #:version-satisfies #:upgrade-asdf
diff --git a/operate.lisp b/operate.lisp
index 999b9510..be4b948b 100644
--- a/operate.lisp
+++ b/operate.lisp
@@ -9,7 +9,7 @@
   (:export
    #:operate #:oos
    #:*systems-being-operated*
-   #:build-op #:build #:build-system
+   #:build-op #:build
    #:load-system #:load-systems #:load-systems*
    #:compile-system #:test-system #:require-system
    #:*load-system-operation* #:module-provide-asdf
@@ -130,10 +130,6 @@ to load it in current image."
     (apply 'operate 'build-op system keys)
     t)
 
-  (defun build-system (system &rest keys)
-    "Alias for function BUILD"
-    (apply 'build system keys))
-
   (defun load-system (system &rest keys &key force force-not verbose version &allow-other-keys)
     "Shorthand for `(operate 'asdf:load-op system)`. See OPERATE for details."
     (declare (ignore force force-not verbose version))
-- 
GitLab