;;; -*- Syntax: Ansi-Common-Lisp; Base: 10; Mode: lisp; Package: clit -*-
-;;; $Id: compat.lisp,v 1.1 2003/07/08 06:43:29 kevin Exp $
+;;; $Id: compat.lisp,v 1.2 2003/07/08 08:34:22 kevin Exp $
(in-package #:modlisp)
(let ((ll (string-tokens (substitute #\Space #\. dotted))))
(+ (ash (first ll) 24) (ash (second ll) 16)
(ash (third ll) 8) (fourth ll)))
- (ignore-error
+ (ignore-errors
(let ((ll (string-tokens (substitute #\Space #\. dotted))))
(+ (ash (first ll) 24) (ash (second ll) 16)
(ash (third ll) 8) (fourth ll))))))