Commit 45b77e6e authored by Dave Cooper's avatar Dave Cooper
Browse files

removed references to defunct gdl-surf-user package

parent f8a7a26d
......@@ -42,7 +42,8 @@
(defun package-documentation (package)
(#+(or allegro lispworks) documentation
#+sbcl sb-kernel:package-doc-string
(find-package package)))
(find-package package)
#+allegro 'package))
#-(or allegro lispworks sbcl cmu) (error "Need implementation for function-documentation for the currently running Lisp.~%")
(defun function-documentation (function-symbol)
......
......@@ -86,12 +86,3 @@
(push #'initialize-gwl *gdl-init-functions*)
(format t "
Initializing GWL static directories --
NOTE this should be done as part of an official startup function...
")
(initialize-gwl)
......@@ -27,7 +27,7 @@
:documentation (:description "This primitive attempts to fillet one or more edges of a brep solid."
:examples "<pre>
(in-package :gdl-surf-user)
(in-package :gdl-user)
(define-object blend-sample (base-object)
......
......@@ -30,7 +30,7 @@ interpolating (going through) each of the points."
:examples "<pre>
(in-package :gdl-surf-user)
(in-package :gdl-user)
(define-object c11-test (surface)
......
......@@ -26,7 +26,7 @@
:documentation (:description "Represents an exact iso curve on the given surface in given direction at given parameter value."
:examples "<pre>
(in-package :gdl-surf-user)
(in-package :gdl-user)
(define-object iso-curve-example (base-object)
:computed-slots
......
......@@ -27,7 +27,7 @@
:documentation (:description "This routine joins two surfaces at a common boundary. The surfaces must already be compatible in the direction of the common boundary (same knots). If the surfaces are not compatible you can use first compatible-surfaces if applicable"
:examples "<pre>
(in-package :gdl-surf-user)
(in-package :gdl-user)
(define-object join-surfaces-test (base-object)
......@@ -71,7 +71,7 @@
(define-object compatible-surfaces (base-object)
:documentation (:examples "<pre>
(in-package :gdl-surf-user)
(in-package :gdl-user)
(define-object compatible-surfaces-test (surface)
......
......@@ -101,7 +101,7 @@ a central axis and axis point."
:examples "<pre>
(in-package :gdl-surf-user)
(in-package :gdl-user)
(define-object test-revolved-surfaces (revolved-surfaces)
......
......@@ -20,7 +20,7 @@
;;
#|
(in-package :gdl-surf-user)
(in-package :gdl-user)
(define-object test-planar-section-curve (planar-section-curve)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment