From 02eb434d8e6aa6e45ff831103258230fcd80c357 Mon Sep 17 00:00:00 2001
From: vindarel <vincezd@gmail.com>
Date: Wed, 4 Oct 2023 18:16:52 +0200
Subject: [PATCH] defsystem alone is not enough, should be asdf:defsystem

or, as done sometimes, (in-package :asdf-user)

otherwise newcomers cannot LOAD .asd files :S

with thanks to Marc R.
---
 getting-started.md | 2 +-
 systems.md         | 6 +++---
 testing.md         | 4 ++--
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/getting-started.md b/getting-started.md
index 6b80f74d..51071f2d 100644
--- a/getting-started.md
+++ b/getting-started.md
@@ -403,7 +403,7 @@ it will create a directory structure like this:
 Where `my-project.asd` resembles this:
 
 ~~~lisp
-(defsystem "my-project"
+(asdf:defsystem "my-project"
   :version "0.1.0"
   :author ""
   :license ""
diff --git a/systems.md b/systems.md
index f1ba15ea..4a51c2d1 100644
--- a/systems.md
+++ b/systems.md
@@ -77,7 +77,7 @@ you create a system definition file called `foobar.asd`,
 with the following contents:
 
 ~~~lisp
-(defsystem "foobar"
+(asdf:defsystem "foobar"
   :depends-on ("alexandria" "trivia")
   :components ((:file "foobar")))
 ~~~
@@ -143,12 +143,12 @@ The simplest way to write tests is to have a file `foobar-tests.lisp`
 and modify the above `foobar.asd` as follows:
 
 ~~~lisp
-(defsystem "foobar"
+(asdf:defsystem "foobar"
     :depends-on ("alexandria" "trivia")
     :components ((:file "foobar"))
     :in-order-to ((test-op (test-op "foobar/tests"))))
 
-(defsystem "foobar/tests"
+(asdf:defsystem "foobar/tests"
     :depends-on ("foobar" "fiveam")
     :components ((:file "foobar-tests"))
     :perform (test-op (o c) (symbol-call :fiveam '#:run! :foobar)))
diff --git a/testing.md b/testing.md
index 321dff2f..2930473c 100644
--- a/testing.md
+++ b/testing.md
@@ -358,11 +358,11 @@ See also [cl-quickcheck](https://github.com/mcandre/cl-quickcheck) and [Check-it
 So it would be nice to provide a one-line trigger to test our `my-system` system. Recall that we said it is better to provide a root suite? Here is the reason:
 
 ~~~lisp
-(defsystem my-system
+(asdf:defsystem my-system
   ;; Parts omitted.
   :in-order-to ((test-op (test-op :my-system/test))))
 
-(defsystem mitogrator/test
+(asdf:defsystem mitogrator/test
   ;; Parts omitted.
   :perform (test-op (op c)
                     (symbol-call :fiveam :run!