[ ?define-irc-parameters ] [ ?define-irc-trailing ] 2bi* ;
PRIVATE>
-#! SYNTAX: name string parameters ;
-#! IRC: type "COMMAND" slot1 ...;
-#! IRC: type "COMMAND" slot1 ... : trailing-slot;
+! SYNTAX: name string parameters ;
+! IRC: type "COMMAND" slot1 ...;
+! IRC: type "COMMAND" slot1 ... : trailing-slot;
SYNTAX: IRC:
scan-new-class
[ scan-object register-irc-message-type ] keep