Changeset 9357 for branches/working-0711/ccl/compiler/optimizers.lisp

Timestamp:

May 5, 2008, 11:19:51 AM (11 years ago)

Author:

mb

Message:

Rollback r9356

File:

• branches/working-0711/ccl/compiler/optimizers.lisp (modified) (1 diff)

branches/working-0711/ccl/compiler/optimizers.lisp

@@ -1936 +1936 @@
         `(let* ((,code (char-code ,ch)))
           (and (eq ,code (setq ,code (char-code ,other)))
-               (eq ,code (char-code ,third)))))
+           (eq ,code (char-code ,third)))))
       call)))