Commits

Anonymous committed 5b6c390

Use normal list manipulation functions <isvfmlie.fsf@xemacs.org>.

Comments (0)

Files changed (2)

+2003-02-20  Ben Wing  <ben@xemacs.org>
+
+	* dumped-lisp.el:
+	* dumped-lisp.el (package-lisp):
+	Eliminate use of assemble-list, when-feature.  Just use normal
+	list-manipulation functions.  Copy code to frob list into shape
+	from latest lisp/dumped-list.el.
+
 2002-12-07  Ville Skyttä  <scop@xemacs.org>
 
 	* .cvsignore: Remove files now handled automatically by CVS.
 (setq package-lisp
-      (assemble-list
-       (when-feature (and mule wnn) "egg-leim")
-       (when-feature (and mule wnn) "egg-kwnn-leim")
-       (when-feature (and mule wnn) "egg-cwnn-leim")
-       (when-feature mule "egg-sj3-leim")
+      (list
+       (when (featurep '(and mule wnn)) "egg-leim")
+       (when (featurep '(and mule wnn)) "egg-kwnn-leim")
+       (when (featurep '(and mule wnn)) "egg-cwnn-leim")
+       (when (featurep 'mule) "egg-sj3-leim")
 ))
+
+(setq package-lisp
+      (apply #'nconc
+	     (mapcar #'(lambda (x)
+			 (if (listp x) x (list x)))
+		     package-lisp)))