Added files for kinematics

cando-developers · Jun 19, 2024 · af9b5d7 · af9b5d7
1 parent a7a6b7d
commit af9b5d7
Show file tree

Hide file tree

Showing 3 changed files with 24 additions and 0 deletions.
diff --git a/src/lisp/kinematics-extras/kinematics-extras.asd b/src/lisp/kinematics-extras/kinematics-extras.asd
@@ -0,0 +1,10 @@
+(asdf:defsystem #:kinematics-extras
+    :description "Extra code for kinematics"
+    :version "0.0.1"
+    :author "Christian Schafmeister <[email protected]>"
+    :licence "LGPL-3.0"
+    :depends-on ()
+    :serial t
+    :components ((:file "packages")
+                 (:file "kinematics")
+                 ))
diff --git a/src/lisp/kinematics-extras/kinematics.lisp b/src/lisp/kinematics-extras/kinematics.lisp
@@ -0,0 +1,10 @@
+
+(in-package :kin)
+
+(define-condition kin:kinematics-error (error)
+  ()
+  (:report (lambda (condition stream)
+             (format stream "~a ~a" (class-name (class-of condition))))))
+
+(define-condition kin:undefined-internal-coordinates (kin:kinematics-error)
+  ((joint :initarg :joint :reader joint)))
diff --git a/src/lisp/kinematics-extras/packages.lisp b/src/lisp/kinematics-extras/packages.lisp
@@ -0,0 +1,4 @@
+(defpackage #:kin.extras
+  (:use #:common-lisp)
+  (:export
+   ))