Permalink
Browse files

More paranoid model name canonicalisation

  • Loading branch information...
1 parent bb6554e commit 4083d475119991347c8a52c019df07248431e98f @pkhuong committed May 25, 2012
Showing with 5 additions and 5 deletions.
  1. +5 −5 rational-simplex.lisp
View
@@ -399,11 +399,11 @@
(defun %print-model (model numberify stream
&aux (*read-default-float-format* 'double-float))
(format stream "Problem~%")
- (format stream " ~A~%" (substitute-if #\_
- (lambda (c)
- (member c '(#\Space #\- #\Tab #\Newline #\Return)))
- (or (name model)
- "Unnamed model")))
+ (format stream " ~A~%" (substitute-if-not #\_
+ (lambda (c)
+ (digit-char-p c 36))
+ (or (name model)
+ "Unnamed model")))
(format stream "~A~%" (ecase (sense model)
(:minimize "Minimize")
(:maximize "Maximize")))

0 comments on commit 4083d47

Please sign in to comment.