close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Ignore:
Timestamp:
2016-06-14T19:35:34-07:00 (8 years ago)
Author:
Marek Rychlik
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/fast-add.lisp

    r4450 r4463  
    1212                     result-last (cdr result-last)))))
    1313    (loop
    14        (format t "RESULT:      ~S~%" (mapcar #'->list result))
    15        (format t "RESULT-LAST: ~S~%" (mapcar #'->list result-last))
    16        (format t "P:           ~S~%" (mapcar #'->list p))
    17        (format t "Q:           ~S~%" (mapcar #'->list q))
     14       ;;TODO: Eliminate this debugging code
     15       #+nil
     16       (progn
     17         (format t "~V@{~C~:*~}~%" 80 #\-)
     18         (format t "RESULT:      ~S~%" (mapcar #'->list result))
     19         (format t "RESULT-LAST: ~S~%" (mapcar #'->list result-last))
     20         (format t "P:           ~S~%" (mapcar #'->list p))
     21         (format t "Q:           ~S~%" (mapcar #'->list q)))
    1822       (cond
    1923         ((endp p) (unless (endp q) (add-to-result q)) (return result))
Note: See TracChangeset for help on using the changeset viewer.