X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/1d51a2eea8537084e9e681c297422047ae858989..c448dd7d1fa2159b781a83bd6bb782c8e36f1472:/src/lines.lisp

diff --git a/src/lines.lisp b/src/lines.lisp
deleted file mode 100644
index 55763dd..0000000
--- a/src/lines.lisp
+++ /dev/null
@@ -1,24 +0,0 @@
-(in-package :lisp-on-lines)
-
-(define-layered-function line-in (name)
-  (:method-combination append)
-  (:method append (thing)
-    '()))
-
-(defmacro defline (name (specializer &rest layers-and-combination-keywords) &body docstring-and-body)
-  `(progn
-    (define-layered-method
-	,name
-      ,@layers-and-combination-keywords
-      ,@(unless
-	 (or (third layers-and-combination-keywords)
-	     (and layers-and-combination-keywords
-		  (null (cdr layers-and-combination-keywords)))) 
-	 '(APPEND))
-      (,specializer)
-	,(when (cdr docstring-and-body)
-	       (car docstring-and-body))
-	
-	,(or (cdr docstring-and-body) (car docstring-and-body)))))
-
-