Robert Smith avatar Robert Smith committed 1138ba2

delete dead comment code, add note to refactor

Comments (0)

Files changed (1)

 
 (in-package #:cl-permutation)
 
-
-
 ;;;;;;;;;;;;;;;;;;;;; PERMUTATION DATA STRUCTURE ;;;;;;;;;;;;;;;;;;;;;
 
 (defvar *print-with-perm-syntax* nil
   (spec #(0) :type (vector (unsigned-byte *))
              :read-only t))
 
-#+#:ignore
-(defun print-perm (perm stream depth)
-  "Printer for perms."
-  (declare (ignore depth))
-  (let* ((spec (perm.spec perm))
-         (len (length spec)))
-    (princ "#[" stream)
-    
-    (cond
-      ((zerop len) (error "Inconsistent permutation; has zero elements."))
-      ((= 1 len) nil)
-      ((= 2 len) (format stream "~D" (aref spec 1)))
-      (t (progn
-           (format stream "~D" (aref spec 1))
-           (dotimes (i (- len 2))
-             (format stream " ~D" (aref spec (+ 2 i)))))))
-    
-    (princ "]" stream)))
-
+;;; XXX: fix the duplication.
 (defun print-perm (perm stream depth)
   "Printer for perms."
   (declare (ignore depth))
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.