;; ;; Copyright 2002-2011 Genworks International ;; ;; This source file is part of the General-purpose Declarative ;; Language project (GDL). ;; ;; This source file contains free software: you can redistribute it ;; and/or modify it under the terms of the GNU Affero General Public ;; License as published by the Free Software Foundation, either ;; version 3 of the License, or (at your option) any later version. ;; ;; This source file is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; Affero General Public License for more details. ;; ;; You should have received a copy of the GNU Affero General Public ;; License along with this source file. If not, see ;; . ;; (in-package :yadd) (define-object format-doc (doc-links-mixin) :computed-slots ((heading "Object Definitions") (part-type 'format-dokumentation) (symbols (remove-duplicates (let (result (package-object (the :package-object))) (do-symbols (symbol (the :package) (sort (nreverse result) #'string< :key #'symbol-name)) (when (and (eql (symbol-package symbol) package-object) (typep symbol 'gdl-format-symbol) (gdl::gdl-documentation (find-class symbol))) (push symbol result)))))) (symbols-external (remove-duplicates (let (result (package-object (the :package-object))) (do-external-symbols (symbol (the :package) (sort (nreverse result) #'string< :key #'symbol-name)) (when (and (eql (symbol-package symbol) package-object) (typep symbol 'gdl-format-symbol) (gdl::gdl-documentation (find-class symbol))) (push symbol result))))))))